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A) A CCÉLÉRATEUR \] MICROBUFFER 
ES Gagnez 360 %de vitesse : Gagnez du temps en libérant 

d'exécution des calculs et des graphiques votre APPLE pendant l'impression. 
sur tous les programmes. Une simple Microbuffer (de 16 K à 256 K) prend en 
opération. Mettez la carte dans le charge instantanément toutes vos 
connecteur et votre APPLE Il etIle données et les envoie à l'imprimante, 
passent à la vitesse supérieure. au fur et à mesure de ses besoins. 


Ainsi votre APPLE est immédiatement 
à votre disposition. 


ni 






AN MÉMOCARTE 

. Gagnez de la vitesse en accès 
dede en simulant un disque ultra- \ULTRATERM 

rapide sur les nouvelles mémocartes _ Gagnez du temps de travail sur 
géantes, extensible de 64K à 512K. les calcs et les textes en obtenant grâce 








Les mémocartes s'utilisent aussi en à Ultraterm une vision panoramique, / 
extension de mémoire centrale pour jusqu'à 48 lignes ou 160 colonnes / 
Visicalc, Magicalc, etc... à volonté. 


Grâce à une large gamme de périphériques et de programme d'avant-garde 
importés et distribués par BIP, vous pouvez maintenant multiplier les possibilités 
de votre APPLE. Demandez-les à votre revendeur. 
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3 LIVRES ET LEUR DISQUETTE 






UTILISATIONS DE L'ORDINATEUR 


POUR VOTRE APPLE 


Pour Apple Il, Il plus et /e DOS 3.3 






Vous avez acheté le livre “La comptabilité sur Apple Il” de Serge et Gérard Llillio, et vous n'avez 
pas le temps nécessaire pour taper vous-même les programmes sur votre Apple. Dans ce cs, 
cette disquette vous est tout particulièrement destinée ! 

L'ensemble des programmes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage, à-l'exception des ordres pour imprimante. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
comptabilité. Ainsi, les trois exemples de libellés cités en annexe dans le livre et ci-inclus, 
doivent être envisagés en tant que points de départ pour une utilisation plus personnelle. 
La disquette seule : 185,00FF /1425,00FB 


Le livre décrit un ensemble de programmes de comptabilité générale en Basic pour petites entreprises, professions libé- 
rales, artisans, commerçants. Avec édition des livres-journal, grands livres, balances, bilans. Avec calcul des ratios. Pro- 
gramme spécial intéressant l'adaptation et la personnalisation du plan comptable. Et... quelques “ficelles” pour Apple ll. 


Le livre seul : 102,00FF / 785,00FB 


Voici une disquette qui permet aux lecteurs de “Visicalc sur Apple” d'accéder directement à tous 
les tableaux Visicalc présentés dans le livre. Ils trouveront sur cette disquette la réplique exacte | VISICALC 


des tableaux présentés dans l'ouvrage. S'y ajoute un programme en Basic permettant l'impres- 


| SUR APPLE 


sion des formules d'un tableau, sur une ou deux colonnes, dans l'ordre de A vers le bas à droite urasanon Er ExEMPIES | 


du tableau. 


D'APPLICATION 


Attention: cette disquette ne peut être utilisée sans la disquette maîtresse Visicalc. HERVE 


La disquette seule : 185,00FF /1425,00FB 


HER 
THIRIEZ 


Après une présentation progressive du modèle Visicalc, l'ouvrage présente un ensemble d'exemples d’appliations, 
échéancier de remboursement, feuille d'impôt, gestion de copropriété, paye, facturation... permettant d'introduire les 


différentes instructions et astuces d'utilisation. 


Le livre seul: 82,00FF / 635,00FB 


P.S.I. DIFFUSION 

BP 86 - 77402 Lagny-S/Marne Cedex 
FRANCE 

Téléphone (6) 006.44.35 

P.S.I. BENELUX 

5, avenue de la Ferme Rose 

1180 Bruxelles 

BELGIQUE 

Téléphone (2) 345.08.50 





au Canada en Suisse 

SCE Inc CRISPA 

65. avenve Hiliside Case postale 152 

Montréal (Wesimount) Chemin Ste Agnès/des roches BA 
Quebec H3Z1W1 1701 Fribourg 

Tel : (514) 935 13 14 Tél: (1037) 26.43 43 


Vous avez acheté le livre “Mathématiques et statistiques”, et vous n'avez pas le temps de taper 
vous-même les programmes sur votre Apple ? Alors cette disquette vous est tout particulière- 
ment destinée ! 

L'ensemble des programmes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
mathématiques. 

La disquette seule : 185,00FF/1425,00FB 


Le livre décritun ensemble de programmes en Basic de mathématiques et de statistiques, niveau supérieur. Chaque pro- 
blème traité comporte une introduction numérique, un exposé de la technique de programmation utilisée, un organi- 
gramme détaillé et un programme complet suivi d'un exemple d'utilisation. Les programmes sont structurés de manière 
à permettre une insertion dans des programmes plus importants. 


Le livre seul: 92,00FF / 710,00 FB 





Envoyer ce bon 
accompagné 

de votre réglement à 
P.S.I. DIFFUSION 

ou, pour la Belgique et 








le Luxembourg à par avion : ajouter (75 FB) par livre ou par disquette TOTAL | | 

P. S L. BENELUX Signature (obhgatoire pour paiement 
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{à P.S.L DIFFUSION uniquement} ercon] 
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Editorial 


Pour son neuvième numéro, Pom's passe de 68 à 76 pages. Le prix de la revue augmente aussi, 
passant de 35 à 40 francs le numéro, ce qui fait 14% d'augmentation en deux ans. Pendant ce temps, 
nos frais postaux ont augmenté de plus de 30% et le papier de plus de 50%; comme vous pouvez le 
constater, nous continuons à nous efforcer de vous donner le meilleur rapport performance/prix. Dans le 
courant de l’année prochaine, nous passerons à une fréquence de parution bimestrielle. 


Comme preuve de la reconnaissance croissante de Pom's par ses pairs, nous avons le plaisir de vous 
annoncer qu'Apple Orchard, l’une des principales revues américaines pour Appleomanes, va publier des 
articles parus dans Pom's. Que diront les lecteurs qui nous accusent parfois (à tort) de copier les revues 
américaines ? 


De nombreux articles qui nous sont proposés ces temps-ci réutilisent des programmes déjà publiés dans 
Pom's. Cela nous pose un problème : nous ne pouvons à ces occasions republier les programmes ou 
parties de programmes concernées si elles sont trop longues. Sinon, on finirait par se croire en lisant 
Pom's comme devant la télé, où les mêmes films repassent régulièrement … Nous avons par conséquent 
décidé, pour éviter de trop fréquentes redondances, de nous limiter à citer l’origine des programmes 
antérieurement publiés, quand ils sont utilisés dans un nouvel article. 


Certains lecteurs ont vu arriver chez eux des Pom's avec une disquette d'accompagnement écrasée par 
des ‘charges postales excessives”. Avant de nous renvoyer ces disquettes, vous pouvez découper l'enve- 
loppe et mettre la disquette “toute nue” dans le lecteur; en effet, l'enveloppe n'est qu'une protection, et 
l’on peut s’en passer. Ce petit remède nous évitera, aux uns comme aux autres, de perdre du temps, et 
il permet presque toujours de récupérer les informations grâce à une copie sur une autre disquette 
(habillée cette fois 1). 





Ë 
Al 


Dans ce nouveau numéro, vous trouverez encore plein de programmes : une fois de plus, la disquette 
d'accompagnement est pleine à craquer. Gérard Hisleur vous propose un programme de traitement de 
texte en BASIC, qui présente un intérêt à la fois pratique et pédagogique. Michel Lafon propose un 
programme en Pascal de saisie de données en plusieurs pages, avec une présentation de type Visicalc. 
Joël Lecoeur vous offre un jeu original, transformant une image graphique haute résolution en puzzle 
que vous devez reconstituer. 


FERRER FEES 


Denis Sureau montre comment fusionner deux shapes puis, dans un autre programme, crée un ordre 
d'impression très évolué pour l'écriture de longues chaînes. Dans le domaine du graphique, Jacques 
Duma propose un éditeur graphique haute résolution, concurrençant amicalement l'éditeur du Pilot. 





Thierry Le Tallec désassemble la PROM PS5A, un bel exercice de style qu’apprécieront les spécialistes. ras 
Il nous donne aussi un programme très original permettant d'imprimer une page haute résolution avec | 
une imprimante non graphique ! ïs 

Lead 
Encore une contribution importante de Gérard Michel, avec un exemple complet de gestion de fichier Lis 
directement par RWTS. Olivier Herz , quant à lui, ne s’est pas endormi sur ses lauriers : il propose une “3 


comparaison des Opcodes des principaux assembleurs, et un programme bien sympathique permettant 
de mettre dans un tableau le catalogue d'une disquette. Vous pouvez facilement l'adapter pour imprimer 
vos catalogues en deux ou trois colonnes, ou l’enrichir pour gérer le fichier de toutes vos disquettes. Le 


Enfin, d’autres contributions qui, pour être plus courtes, n'en sont pas moins intéressantes. Jean-F. “4 
Schwartz nous aide à lire les fichiers TEXT, Erick Ringot nous apprend à faire de beaux listings et 

Th. Charlier de Chily améliore le programme de fondu enchaîné de Denis Sureau. Pour ma part, je 

montre comment envoyer des caractères spéciaux à votre imprimante, et j'analyse pour vous le pro- 

gramme Magicalc. Jean-François Duvivier tient toujours avec maestria la rubrique des nouveautés, 

Alexandre Duback /a bibliographie et Olivier Herz le courrier des lecteurs. Avec tout cela, si vous 

avez encore faim, dites-le nous … 


Nous vous avions annoncé notre intention de parler de communication. Nous y pensons toujours, mais 
ce numéro est déjà plein à craquer, nous n'avons plus assez de place. Ce n’est que partie remise. Pom's 
innove depuis le numéro 8 : tous nos textes sont préparés en traitement de texte sur Apple, recodés à 
l’aide d’un programme de conversion et d’enrichissement de texte écrit par Logma, et transmis à l’ordi- 
nateur de composition de Télécompo grâce à la carte super série et au Modem Telsat 640 de Satelcom. 
Voici une application intéressante de la communication ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Th. Charlier de Chily - Philippe Chemin - Alexandre Duback - Jean-François Duvivier - Jacques Duma - Olivier Herz - 
Gérard Hisleur - Michel Lafon - Joël Lecoeur - Thierry Le Tallec - Gérard Michel - Erick Ringot - Jean-François Schwartz - Denis Sureau - Hervé 
Thiriez. Rédacteur : Olivier Herz - Dessins : Laurent Bidot. 

Directeur de la publication - rédacteur en chef : Hervé Thiriez - Siège social et abonnements : Editions MEV - 49, rue Lamartine - 78000 
Versailles - Rédaction et courrier des lecteurs : 59, bd de Glatigny - 78000 Versailles - Tél. : (3) 951.24.43 - Régie publicitaire : Force 7 - Anne 
Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tél. : (1) 238.66.10. Diffusion auprès des boutiques et librairies : PSI 
Diffusion - BP 86 - 77402 Lagny-sur-Marne Cedex. 

Composition : Télécompo - 13-15, avenue du Petit Parc - 94300 Vincennes - Tél. : 328.18.63. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes - Tél. : 328.18.63. 


Pom's n° 9 5 





UN DOCUMENT 
ESSENTIEL 


AUIDE 334 


L'ORDINATEUR 
INDIVIDUEL 


AU SOMMAIRE 


e Panorama des ordinateurs valant 

jusqu'à 60 000 F (200 matériels) 

e Tableau récapitulatif de tous les O.I. 

dans plusieurs configurations 

e Panorama des imprimantes pour 
ordinateur individuel (plus de 100 matériels) 
e Réactualisation de bancs d'essai 

de 50 matériels parus dans L'O.. 


e Revue des bancs d'essai de 52 logiciels 
parus dans L'O. depuis le n° 34 

< Annuaire des fournisseurs et des clubs : 
plus de 1 500 adresses 

e Le point sur les nouveautés parues 
depuis l'été 82 


e Dictionnaire de l'informatique individuelle 
e …Et une série d'articles pour vous “guider” 
sur le chemin de votre informatisation 
individuelle 


à partir 
du 12 septembre 1983 
35 FF 
chez votre marchand 
de journaux 


Pour recevoir, chez vous le 

Guide 83-84 dès sa parution, il vous 

suffit d'envoyer vos nom et adresse 

ainsi qu'un chèque de 35FF à 
L'ORDINATEUR INDIVIDUEL (GUIDE 83-84) 
39, rue de la Grange-aux-Belles 


75484 Paris Cedex 10 
+ 50 bis 


Lu 
TS LE » * ti 





Une réduction de 5FF est accordée aux abonnés 
sur envoi de la dernière étiquette d'expédition 


Thierry Le Tallec 


Ce programme constituera, je l’es- 
père, un précieux utilitaire pour ceux 
d'entre vous qui, ne possédant pas 
d'imprimante graphique, se sont vus 
privés jusqu’à ce jour de la possibilité 
d'obtenir des copies papier” de 
leurs graphiques Haute Résolution 
préférés. Il permet en effet de reco- 
pier un écran Haute Résolution sur 
une imprimante NON graphique, à la 
seule condition qu’elle puisse écrire 
en mode compressé”. 


Les commentaires donnés en regard 
du programme-source en assembleur 
fournissent les renseignements néces- 
saires en ce qui concerne la démar- 
che adoptée. 


Copie basse 


résolution 


d'écran HGR 


Le code-objet est implanté en mé- 
moire au début du programme en 
Applesoft GRAFTEXT (lignes 10 à 
60), dont l'exécution est seule re- 
quise pour obtenir la copie souhai- 
tée. 


À noter que le nom des pages HGR 
à copier doit se terminer par ”.PIC” 
pour que le programme puisse les 
charger. Ainsi, pour copier le graphi- 
que DESSIN, il faut le baptiser DES- 
SIN.PIC et fournir le nom DESSIN 
en réponse au programme. 


Le processus d'utilisation du pro- 
gramme est le suivant : 


e Mettre la disquette où se trouve le 
graphique dans le lecteur ”’actif”. 


e Demander le CATALOG. 


e Donner le nom du graphique à 
charger, appuver sur une touche 
lorsque celui-ci est affiché pour re- 
venir au menu. 


e Demander la copie. 


Notez enfin que sur le graphique re- 
copié, les points de la gauche de 
l'écran sortent en haut du papier et 
ceux de la droite en bas. N'oubliez 
donc pas de faire une rotation de 90 
degrés pour obtenir un maximum de 
ressemblance avec l'original ! 











Program RA 100 HOME : VTAB 1: INVERSE : PRINT “ << GR “+ 
ogramme GRAFTEXT AFTEXT >> “: PRINT ‘ GROSSIERS SOFTW sÿ. 
ARE “: NORMAL : VTAB 1: HTAB 26: PRINT 
1 PS = CHRS (27) + CHRS (56) + CHRS (27) + “(C)1982 -- TOUS“:: HTAB 26: PRINT “D 
CHRS (66) + CHRS (29): REM MODE CO ROITS RESERVES": PORE 24,2 
TON VOTRS Ho eptes 0  PIFSER SE | 410 VTAB 7: HTAB 10: PRINT “1 - VOIR LA PACE : | 
7 VON: AOTRE TERRENSRER TA 1“: PRINT : HTAB 10: PRINT “2 - VOIR Fr 
D RO de Le PRE Rene DRE LA PAGE 2“: PRINT : HTAB 10: PRINT "C is 
SE UE nt rene eo LE - CATALOGUE": PRINT : HTAB 10: PRINT “ 
E FS,0: ONERR GOTO 300 R - RECOPIE SUR IMPRIMANTE": PRINT : H Le 

20 DS = CHR$ (4):GT = 768: FOR A = GT TO GT AA 200 BÉIUE 26 ON TER n: 
1 V0 PRADIPS PARA ARE CAEN 120 VTAB 20: HTAB 1: PRINT “VOTRE CHOIX :"; J 

30 DATA 169,0,133,2,133,3,169,70,133,1,169,9 | 250 RETURN 
6r133,6,169,191,138,4,169,0,138,S,162, | 200 VTAB 23: HTAB 1: PRINT “CN)ORMAL OU CIN 
2,169,4,133,7,32,116,3,144,2,230,5,230 VERSE ?*:: GET AS: ON CAS < > “N" AND 
,2,208,2,230,3,198,7,208,239,198,4,56, A8 < > “I“) GOTO 200: POKE 0,0: IF A 
ire $ = “l" THEN POKE 0,255 

40 DATA 233,4,133,2,165,3,233,0,133,3,202,20 | 2130 RETURN 
RE pe Mt IE enr ae 300 Y = PEEK (222): POKE TX,0: POKE P1,0: PR 
se ee 53,173,0,192,48,17, INT : IF Y = 6 THEN FLASH : PRINT "JE 
Pa LE r2,165,3,10$,0,133,3,1 NE LA TROUVE PAS";: NORMAL 

1,208, CHRS (7): IF Y = 8 THEN FLASH : 

50 DATA 32,47,251,44,16,192,96,160,174,172,1 | 19 de 1. RS 
86,201,171,216,170,163,138,72,165,4,72 330 WAIT 49152,128: POKE 49168,0: PRINT : GO 
,41,192,133,224,74,74,5,224,133,224,10 +6 és ’ 
4,183,225,10,10,10,38,225,10,38,225,10 
,102,224,165,225,41,31,5 

60 DATA 230,133,225,165,2,164,3,192,0,240,5, + dés ati iss 
160,35,105,4,200,233,7,176,251,170,177 : sis 
,224,69,0,10,10,232,208,252,104,170,96 2 * * 

70 GET AS: IF AS = "2" THEN POKE HR,0: POKE 3 * GRAFTEXT x . 

G,O0: POKE P2,0: GET A$: POKE TX,0: PO 4 x * Big 
KE P1,0: POKE 230,64:48 = "" M 

75 IF AS = “C* THEN PRINT A$: PRINT DS"CATA D HR ac 
LOG": PRINT : INVERSE : PRINT "NOM DE 6 
es De ?5 AO CRT dcr 7 * Recopie d'écran haute-résoiution 
OAD":NS:".PIC,AS2000":4S$ = "1" 8 + sur imprimante NON graphioue 

80 IF A$ = "1" THEN POKE HR,O: POKE G,O: GE 9 # = 
T AS: POKE TX,0: POKE 230,32:4$ = "* 10 

85 IF A$ = “R“ THEN GOSUB 200: POK€ HR,0: P GRAFTEX contient (lignes 
OKE P1 + ( PEEK (230) = 64),0: POKE G, il # 03/11/82 20 à 60) le code binaire de 
O: PRINT : PRINT DS"PR#1": PRINT Ps: C | {2 GRAFTEXT.S 
ALL GT: PRINT DS"PR#O":AS = "" 13 

90 IF AS < > "Q“ THEN GOSUB 100: GOTO 70 

99 HTAB 1: FOR I = 23 TO 1 STEP - 1: VTAB I | lé OR6 $300 ;call 768 
S PRAT PS UN eS endeeds RO NIPrS 
sesseessse."3t NEXT : TEXT : FOR I = 1 | _ 

TO 23: VTAB I: PRINT SPC(C 40): NEXT 16 HMASK  EQU 400 :$00=négatif, $FF=positif 
: END 17 LINES  EGU $0i compteur de jignes (0-63) 
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18 XCOORDL 
19 XCOORDH 
20 YCOORD 
21 CELL 
22 CHARS 
25 COLUMN 
24 HBASL 
25 HBASH 
26 HPAG 
27 KBD 

2B KBDSTRB 


46 BOX 
47 

48 

49 NXTCOL 
90 

ot BOXI 
"32 

3 

54 BOX2 
53 

36 

57 BOXS 


69 NXTBOX 


74 NEXTLIN 
75 
76 
77 


$02 
$03 
$04 
$05 
$06 
$07 
$E0 
$E1 
$E6 
$C000 
#C010 
$FB2F 
$FC58 
$FDOC 
$FDBE 
$FDED 


“coordonnée horizontale 


*coordonnée verticale 
scaractère graphique OKI 
:compteur de caracteres 


:pointeur d'adresse écran 


:$20=page 1, #40=page 2 


lignes de 96 colonnes 


£0 sanalyse les colonnes ( - 273 
XCGORDL 
XCOORDH 
£70 
LINES 
£56 
CHARS 
£191 
YCOORD 
£0 +raz compteur points/cases 


*compteur de lignes = 70 
scospteur de caractères = 96 


analyse l'écran de bas en haut 


analyse des "cases" de 2x4 


teste si point allumé 


;coapte si oui 
: (incrémente 16 bits) 


spoint suivant 
sou rangée suivante 


£0 : (soustraction 16 bits) 


sprend le nombre de points 
ssort ie cractère correspondant 


;case suivante si pas fini 


fin si clavier appuyé 





87 END 
88 

89 

90 TABLE 
91 


JSR 
BIT 
RTS 
ASC 


£0 ; (addition 16 bits) 


SCANCOL colonne suivante 5i pas fini 


INIT 
KBDSTRB 


«node texte 


",,t1+Xx£" 


92 * teste l’écran HR. Revient avec carry=i si point allumé 


93 
94 HPOSN 


130 


132 


STA 


SRSRPRRERE 


Len] 
n°] 
Z 


YCOORD  :YCOORD=abcd efgh 
“sauvegarde coordonnée verticale 
£$C0 
HBASL  :HBASL=ab00 0000 
HBASL 
HBASL  :HBAGL=abab 0000 
:récupère coordonnée verticale 
HBASH  :HBAGH=abcé efch 
: Asbcde fgh0 
: Azcdef gh00 
: A=defg h000 
HBASH  :HBASH=bcce fghc 
: Arefgh 0000 
HBASH  :HBAGH=cdef ghcd 
: A=fgh0 0000 
HBASL *HBASL=eaba b000 
HBASH 
£$iF : A<000f ghcd 
HPAG 
HBASH  :HBASH=pppf ghct 
XCOORDL divise XCODURD par 7 
XCOORDH :(quotient=rang de l'octet 
£$00 : reste=rang du bit dans l’octet 
HPOSN2 
£523 
£$04 
£$07 
HPOSNI 
Sauvegarde rang du bit 


(HBASL),YŸ :charge l’octet dans A 


HMASK  : (normal ou inverse) 
‘décale le bit dans la carry 
“jusqu’au rang indique par X 
FIGURE 
“récupère X 
OFF 
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Que serait la micro-informatique au- 
jourd’hui sans Visicalc ? Il est à pré- 
sent inconcevable d'acquérir un 
micro-ordinateur qui ne soit pas 
équipé d’un ”tableur”, qu'il s'agisse 
de Visicalc, Supercalc, Spreadsheet, 
Muiltiplan ou un autre. A cette longue 
série vient de s'ajouter Magicalc, pro- 
duit par ARTSCI à qui nous devons 
un programme de traitement de texte 
déjà célèbre, Magic Window. 


The Spreadsheet 


Certains d’entre vous ont entendu 
parler de ’The Spreadsheet”, ce ta- 
bleur vendu antérieurement pour 
moins de $30 par CALL A.P.P.L.E. 
à ses adhérents, compatible avec Vi- 
sicalc, et possédant par rapport à ce 
dernier des possibilités supplémentai- 
res. Ce programme a été suivi de 
”Spreadsheet 2”, lui aussi vendu à 
un prix imbattable ; ce programme 
est parfait, à une exception près. Il se 
trompe en effet dans certains cas lors 
de la présentation à l’écran. Il est ins- 
tructif à cet égard de voir comment 
est reproduite la valeur 99,99999 
dans les colonnes de gauche à 
droite : la valeur de 99,99999 de la 
case Al a été reproduite dans les co- 
lonnes B, C, D, E et F dont les lar- 
geurs avaient été préalablement défi- 
nies à 9 colonnes, 8, 7, 6, 5 et 4 de 
large. 


92, 39999) 100. 004/ 100. 04] 100.4] 104. 140 


se vous pouvez le voir, il est 
étrange de constater que 99, :99999 
devient 140 à l'écran quand la co- 
lonne est de largeur 4. D'ailleurs, si 
l’on reproduit la valeur de Al en A2, 
on obtient bien 9999999. Il suffit 
alors de modifier le format de A2 par 
«/Fl» pour voir apparaître 140 ! 
Pour des raisons qu’il serait trop long 
de détailler ici, ’Spreadsheet 2” n’est 
plus commercialisé maintenant. 


Magicalc 


Par contre, Magicalc vient d’être 
lancé sur le marché, distribué en 
France par BIP avec une documenta- 
tion en anglais et une notice expli- 
quant en français, à ceux qui 
connaissent déjà Visicalc, le mode 
d'emploi des nouvelles possibilités de 
Magicalc. La documentation en an- 
glais est présentée comme celle de 
Visicalc, y compris un dépliant car- 
tonné servant d’aide-mémoire, ce qui 
est toujours bien pratique et dont de- 
vraient s'inspirer tous les auteurs de 


progiciels. 
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La magie de Magicalc 


Au niveau des possibilités, on re- 
trouve ’’Spreadsheet 2” à quelques 
petits détails près; entre autres, le 
bug décrit ci-dessus est enfin corrigé. 
En quelques mots, Magicalc a tous 
les moyens du Visicalc 16 secteurs 
(DOS 3.3), plus les suivants : 


e utilisation des quatre touches de 
déplacement (sur le //e) 

e colonnes de largeurs différentes 

e colonnes invisibles 

® reconnaissance de cartes d’exten- 
sion mémoire 

® reconnaissance de cartes 80 co- 
lonnes 

® protection possible des cases 

® reproduction de formats et d’attri- 
buts 

e compatibilité avec les disques durs 

® fonctions supplémentaires 

e lecture/écriture plus flexible 

® impressions améliorées. 


En fait, Magicalc possède la moitié 
des possibilités de Visicalc Advanced 
Version que n’a pas la version stan- 
dard de Visicalc, le tout à un prix 
tout à fait abordable puisque LNRRE 
calc coûte seulement 2.040 F HT. 
Visicalc Advanced Version est at- 
tendu, mais pas encore disponible 
sur Apple //e; on ne le trouve en ce 
moment que sur Apple ///, et à un 
prix sensiblement supérieur à celui 
de la version normale. 


Visicalc Advanced 
Version 


Les avantages de Visicalc Advanced 
Version que ne partage pas le pro- 
gramme Magicalc sont les suivants : 


e la capacité de mémoriser des chaf- 
nes d'instructions 


e une série de fonctions financières 


e des fonctions de mesure du temps 
(date, heure, ..) 


e des formats beaucoup plus variés. 


Mais, après tout, au prix où se vend 
Magicalc, on peut encore dans beau- 
coup de cas se passer de ces particu- 
larités supplémentaires. 


Les ”plus” de Magicalc 


Commentons maintenant en détail 
les ”’plus” de Magicalc présentés plus 
haut de façon synthétique. Notre but 
n’est pas d'être exhaustif, mais d’il- 
lustrer les traits essentiels de ce nou- 
veau tableur. 


Hervé Thiriez 


Utilisation du clavier 


Le déplacement dans les quatre di- 
rections à partir d’une case s'effectue 
grâce aux touches (Q, S, Z et A) en 
mode C . Le même effet s’ob- 
tient avec les flèches, y compris les 
flèches verticales sur l'Apple //e. 


Les touches CTRL-W et CTRL-X 
provoquent la montée et la descente 
de 12 lignes. CTRL-E place en haut 
à gauche de la feuille utilisée, et 
CTRL-C en bas à droite. C’est là le 
seul problème de compatibilité que 
j'ai eu: j'ai l'habitude d'utiliser fré- 
quemment CTRL-C pour interrom- 
pre une opération en cours avec Visi- 
calc, ce qui, avec Magicalc, valide 
l'opération en cours et déplace le 
curseur … 


Largeur des colonnes 


La largeur de chaque colonne peut 
varier indépendamment; ainsi, la lar- 
geur O permet d'éliminer une co- 
lonne lors de l'impression de façon 
particulièrement élégante. On revient 
à une colonne de largeur O par un 
GOTO direct avec le signe ”>”. Il 
n’est plus indispensable d'écrire des 
titres sur plusieurs colonnes, comme 
Visicalc nous y force régulièrement. 
Enfin, une colonne de largeur 1, 
avec le signe ”!” comme contenu, 
fournit une séparation verticale bien 
agréable. 


Cartes d'extension mémoire 


Magicalc reconnait automatiquement 
la plupart des cartes d'extension mé- 
moire; à l'extrême, on peut s'amuser 
avec des tableaux utilisant 512K de 
mémoire, si l’on a quatre cartes Le- 
gend 128K … 


Par contre, et cela est bien triste, la 
carte 80 colonnes étendue de l’Ap- 
ple //e n'est pas reconnue en tant 
qu’'extension mémoire, mais seule- 
ment en tant que carte 80 colonnes. 
Pour utiliser Magicalc avec plus de 
64K machine (ce qui fait 30K utilisa- 
teur), il faut donc avoir une carte 
d'extension mémoire qu’il reconnait. 


NDLR : nous venons d’être avertis 
par BIP que les versions récentes de 
Magicalc reconnaissent maintenant 
complètement la carte 80 colonnes 
étendue. 


FE PES: RE PES 





Cartes 80 colonnes 


Un menu de configuration vous per- 
met de définir au programme l’équi- 
pement que vous utilisez, il suffit de 
répondre YES ou NO aux questions : 
Lower case video, Lower case key- 
board, One-wire shift key, Printer dri- 
ver et Video driver; il faut en outre 
indiquer, si nécessaire, le slot de l’im- 
primante (1 par défaut) et celui de la 
vidéo (0 par défaut). . 


Même si vous ne possédez pas de 
carte 80 colonnes, Magicalc vous 

rmet de disposer de 70 colonnes à 
écran; il suffit pour cela de répondre 
YES à la question Video driver. Ceci 
dit, les caractères sont fatigants à lire, 
et la mémoire rétrécit fortement avec 
le passage en 70 colonnes : la mé- 
moire disponible avec un tableau 
vide sur un Apple 64K en 40 colon- 
nes est de 30K (on perd 4K par rap- 
port à Visicalc); en mode 70 colon- 
nes, elle n’est plus que de 18K. 


Avec un Apple //e, il m'a suffi de 
spécifier que j'avais une Lower case 
video et un Lower case keyboard, et 
de mémoriser cette configuration sur 
ma disquette fichiers. Dès que je 
lance Magicalc, je peux tout utiliser, y 
compris les 80 colonnes (reconnues 
automatiquement sur la carte Apple) 
et des libellés avec des minuscules et 
des lettres accentuées. Attention, ce- 
pendant: avec le clavier en mode 
AZERTY, il faut des touches multi- 
ples (avec le SHIFT) pour obtenir le 
slash (/) ou les chiffres. Je travaille 
par conséquent en clavier anglais, 
basculant sur le français uniquement 
au moment de définir des titres avec 
des lettres accentuées. 


Les attributs 


Comme Visicalc Advanced Version, 
Magicalc autorise la définition d’attri- 
buts dans une case ou une série de 
cases. Un attribut peut être, comme 
un format, défini localement ou glo- 
balement. Les attributs possibles 
sont : 


e D: valeur par défaut (attribut glo- 
bal) 


e À (all: accepter toute donnée, 
VALUE ou LABEL 


e L (label) : toute entrée est une éti- 
quette 


e V (value): toute entrée est une 
valeur 


e P (protect): case protégée, ne 
peut être modifiée avant d’avoir 
Cr ii og par exemple avec 
”/ A 


e H (hide) : le contenu de la case 
reste utilisable par les autres cases, 


mais il est devenu invisible, à l’im- 
pression comme sur la ligne de 
contenu (quand le curseur passe 
sur la case). La ligne de contenu 
fait seulement apparaître les coor- 
données de la case et ”/AH”, ce 
qui permet de savoir que la case a 
été protégée. 


Reproduction de formats et 
d’attributs 


Le REPLICATE fonctionne comme 
dans Visicalc avec, en plus, la possi- 
bilité de reproduire des attributs 
seuls, des formats seuls, des conte- 
nus seuls (sans format ni attribut), 
des valeurs et des étiquettes sans les 
formules, des contenus complets en- 
tièrement en NO CHANGE, ou en- 
tièrement en RELATIVE. 


Fonctions supplémentaires 


Les fonctions supplémentaires sont 
multiples; on y retrouve de nombreu- 
ses fonctions propres à Visicalc Ad- 
vanced Version ou à Multiplan : 


e COL : renvoie la valeur de la co- 
lonne de la cellule 


e ROUND(valeur, n) : arrondit la va- 
leur à n décimales. Cela nous 
évite la solution actuelle avec Visi- 
calc : INT(1000xvaleur. +5)/1000 
pour avoir par exemple un arrondi 
à trois décimales. 


e ROW: renvoie la valeur de la 
ligne de la cellule 


Lecture et écriture 


Lors de la lecture ou de la sauve- 
garde d’un fichier, Magicalc donne à 
l'écran la liste des fichiers sur la dis- 
quette, ceux-ci étant numérotés sé- 
quentiellement. On sélectionne alors 
le nom à utiliser ou le numéro cor- 
respondant. Trois regrets à cet 
égard : que la liste ne se fasse pas 
sur deux colonnes, ce qui permettrait 
de voir deux fois plus de fichiers 
d’un coup. Le second regret est que 
le programme ne propose pas par 
défaut le nom du dernier fichier 
chargé : cela éviterait des erreurs de 
manipulation aux conséquences des- 
tructrices. Enfin, il serait plus prudent 
de voir le nom de fichier choisi appa- 
raître en inverse avant que l’opéra- 
tion ne soit lancée : on pourrait alors 
si le tir avant qu'il ne soit trop 
tard. 


ATTENTION - J'ai rencontré avec 
Magicalc un grave problème qui m'a 
fait perdre le résultat de quatre 
heures de travail, ce qui est extrême- 
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ment désagréable. Ce problème a 
été provoqué par le fait que, dans un 
menu de configuration, on spécifie si 
une sauvegarde doit être effectuée 
normalement ou en format DIF. L’in- 
convénient est que, si l’on a spécifié 
le format DIF à un moment donné 
sans signaler ensuite le retour à la 
normale, toutes les sauvegardes ulté- 
rieures s'effectuent selon ce format. 
Ainsi, j'ai sauvegardé après de lon- 
gues modifications un tableau, sans 
savoir qu'il était en format DIF. 
Quand, quelques jours plus tard, j'ai 
voulu le relire, plus rien ne marchait. 
Si je n'étais pas très prudent (et 
n'avais pas d'autres sauvegardes), 
j'aurais totalement perdu ce tableau 
avec ses formules. Au moins, dans 
Visicalc, faire ”/SS” ou faire ”/S#S”, 
ce n’est pas la même chose ! 


Modalités d'impression 


Comme Muitiplan, Magicalc formate 
l'impression automatiquement en te- 
nant compte du nombre de colonnes 
disponibles indiqué par l'utilisateur 
lors de la configuration de l'impri- 
mante. Si le tableau est trop large, 
Magicalc imprime la suite en-dessous 
de la première partie, sans interven- 
tion de la part de l’utilisateur. 


En ce qui me concerne, je ne trouve 
pas ce formatage automatique de 
l'impression réellement intéressant : 
quand un tableau est trop large et 
que je veux l'imprimer sur deux 
pages, je souhaite garder sur la se- 
conde page la colonne À, ou les co- 
lonnes À et B, ce que ne fait pas le 
formatage automatique. Le problème 
est indentique pour un tableau trop 
long : on souhaite en général repro- 
duire une ou deux lignes de titres en 
haut de la suite du tableau. 


Conclusion 


Magicalc est tellement intéressant que 
je l'utilise systématiquement à la 
place de Visicalc pour mes propres 
tableaux. Dans le numéro 6 de 
Pom's, j'expliquai que j’utilisais tantôt 
Visicalc, tantôt Multiplan. Maintenant, 
j'alterne suivant les besoins entre Ma- 
gicalc et Multiplan. De la même 
façon que je ne prends pas la même 
voiture pour faire de la conduite en 
ville ou de la route (si j’ai le choix), 
je ne prend pas le même tableur 
pour tous mes tableaux. 


J'attends la sortie de Visicalc Advan- 
ced Version sur Apple //e et l’an- 
nonce de son prix, encore indéfini, 
pour savoir si je vais un jour rempla- 
cer Magicalc par celui-là … En atten- 
dant, je ne lâche pas mon exem- 
plaire de Magicalc ! 
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Editeur-compositeur de texte 


EDIT est un éditeur de texte écrit en 
BASIC et fonctionnant ligne à ligne. 
ll offre de nombreuses possibilités 
d'insertion, de suppression et de mo- 
dification de lignes, fonctions classi- 
ques d’un éditeur de texte. 


Un accent particulier a été mis sur 
l'aspect ergonomique du dialogue. 
Le menu des commandes est ainsi 
accessible à tout moment, de même 
que le mode d'emploi des différentes 
commandes. 


EDIT traite tous les fichiers à accès 
séquentiel en mode texte dont les 
enregistrements ont une longueur in- 
férieure ou égale à 255 caractères. 
Ces derniers pouvant être quelcon- 
ques, EDIT utilise la routine d’INPUT 
généralisé appartenant au pro- 
gramme La Programmation Facili- 
tée” de Denis Sureau, publié dans 
Pom's 5. 


Chaque enregistrement est une 
ligne” pour l'éditeur. 


Le champ d’action de l'éditeur 
s'étend aux procédures cataloguées, 
aux textes destinés au compositeur 
de texte COMPOS (voir plus loin) et 
aux programmes BASIC. 


Tout programme BASIC peut en 
effet, comme Pom's l’a déjà signalé, 
être transformé en un fichier TEXT 
au travers d’un fichier EXEC. 


Principes de fonctionne- 
ment de l’éditeur 


Le texte à éditer est stocké dans un 
fichier TEXT désigné par son nom et 
éventuellement un numéro de lecteur 
(par exemple SOURCE,DZ ou 
TEXT.BASIC avec D1 par défaut). 
Le nom de ce fichier constitue la pre- 
mière information à fournir à l’édi- 
teur, donner un nom ne correspon- 
dant à aucun fichier existant sur la 
disquette utilisée revient à commen- 
cer l'édition d’un nouveau texte. 


Si le fichier existe, il est lu en mé- 
moire. 


Tout au long de l'édition, EDIT 
maintient un pointeur sur la ligne en 
cours de traitement, dite ligne cou- 
rante. Le pointeur évolue en fonction 
des commandes données et, en gé- 
néral, la ligne courante est imprimée 
après l'exécution d’une commande. 
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Mise en route du programme 
Les instructions nécessaires sont : 


BRUN PROGR48K (La Program- 
mation facilitée”’) 


RUN PROGR.EDIT 


Sur la disquette d'accompagnement, 
le fichier EDIT contient ces deux 
commandes, et le lancement peut 
donc se faire par EXEC EDIT. 


Les commandes 


La commande ”?” affiche à l'écran la 
liste des commandes disponibles. 
Comme. toutes les autres, elle doit 
être tapée en réponse à la question 
COMMANDE? posée par le pro- 
gramme, et non au cours de l'édition 
elle-même. 


Chaque nom de commande suivi du 
caractère 7?” (C? par exemple) affi- 
che le mode d'emploi correspondant. 


1) Commande N({ext) 


e N p: progression du pointeur de 
ligne de p positions. N équivaut à 
N 1. 


e Nchaîne: positionnement du 
pointeur sur la première ligne, en 
avant de la ligne courante, où se 
trouve la chaîne spécifiée. 


2) Commande U(p) 


e U p: recul du pointeur de p posi- 
tions. U équivaut à U 1. 


e U/chaîne: positionnement sur la 
première ligne, en arrière de la 
ligne courante, où se trouve la 
chaîne. 


Lorsque l'éditeur rencontre le début 
du texte, il affiche le message FIN 
DE FICHIER et le pointeur se place 
devant la première ligne du texte. 


3) Commande T(op) 


e Positionnement au début du texte, 
avant la première ligne existante, 
ce qui permet les insertions en tête 
du fichier. 


4) Commande B(ottom) 


e Positionnement sur la dernière 


ligne du texte. 
5) Commande J(ump) 


e J p: lorsque le fichier correspond 
à un programme BASIC, le poin- 
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teur vient sur la ligne portant le 
numéro p. 


6) Commande D(elete) 


e D p: suppression de p lignes, 
ligne courante comprise. D équi- 
vaut à D 1. 


7) Commande I(nsert) 


® Insertion de lignes derrière la ligne 
courante. La fin de l'insertion est 
indiquée par une ligne ne compor- 
tant que le caractère ”’#”. La der- 
nière ligne insérée devient ligne 
courante. 


8) Commande R(eplace) 


e R chaîne: remplacement de la 
ligne courante par la chaîne don- 
née. Cette commande équivaut à 
la suite de commandes D, U, I, 
chaîne, #. 


9) Commande C{hange) 


@ C/chaîne l/chaîne 2: remplace 
chaîne 1” par ”’chaîne 2” dans la 
ligne courante. 


@ Cx/chaîne l/chaîne 2: même 
opération, mais cette fois sur l’en- 
semble du fichier. 


10) Commande Again) 


© Répétition de la dernière com- 
mande exécutée. 


11) Commande Print) 


e P n: affichage de n lignes, ligne 
courante comprise. P équivaut à P 
d: 


e Px n: impression de n lignes sur 
une imprimante en slot 1. Px 
équivaut à Px 1. 


La dernière ligne traitée devient ligne 
courante. 


12) Commande Write) 


e W NOM p: écriture dans le fichier 
baptisé NOM de p lignes à partir 
de la ligne courante. Si le numéro 
du lecteur n’est pas précisé, EDIT 
utilise par défaut celui supportant 
le fichier à éditer. 


e Wx NOM p: écriture de toutes les 
lignes comprises entre la ligne 
courante et celle de numéro p 
lorsque le texte correspond à un 


programme BASIC. 
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13) Commande G(et) 


e G NOM pl p2: insertion derrière 
la ligne courante de lignes issues 
du fichier NOM, pl et p2 préci- 
sant les rangs dans ce fichier de la 
première et de la dernière ligne à 
insérer. 

e Gx NOM pli p2Z : insertion derrière 
la ligne courante des lignes BASIC 
pl à p2, lorsque les fichiers traités 
correspondent à des programmes 
BASIC. 


14) Commande File) 


e Fin de l'édition avec mise à jour 
du fichier TEXT initial. 


Pour des raisons de sécurité, cette 
opération se fait en trois étapes : 


— écriture du texte dans le fichier 
TEMPO 


— destruction du fichier initial 
— remplacement du nom TEMPO 
par le nom initial. 


15) Commande Q{uit) 


e Abandon de l'édition en cours 
sans mise à jour du fichier. 


Remarque 


Il est possible d'obtenir une version 
plus compacte de PROGR.EDIT, 
sans affichage du menu des 
commandes et de leur mode d’em- 
ploi. Pour ce faire, effectuez les opé- 
rations suivantes : 


e supprimer les lignes 50, 350, 9500 
et 10000 


@ remplacer la ligne 40 par 40 
HOME 


® remplacer la ligne 310 par 310 
GOTO 1230 


® remplacer la ligne 330 par 330 IF 
MID$(A$,2,1)="?" THEN 1230 


Le compositeur de texte 
COMPOS 


COMPOS est un outil chargé de 
mettre en forme un texte source 
dans lequel sont insérées des 
commandes de mise en page. Le 
texte source est un fichier TEXT à 
accès séquentiel qui peut être aisé- 
ment généré et corrigé par EDIT 


Trois options sont possibles pour la 
mise en page : 


e affichage à l'écran 

® impression 

e écriture dans un fichier TEXT 
(fichier objet). 


La sortie sur écran du texte composé 
facilite la mise au point du texte 






source, la mise en page étant absolu- 
ment identique (à la longueur des 
lignes près) pour les trois supports de 
sortie. 


Le clavier standard de l'Apple II Plus 
ne gère pas les minuscules, mais 
COMPOS permet cependant le mé- 
lange de majuscules et de minuscules 
pour un texte imprimé. 


L'opération de composition est relati- 
vement lente. Cela s'explique par le 
fait que chaque caractère du fichier 
source est analysé et, éventuelle- 
ment, recodé en minuscule. Lorsque 
l'utilisateur désire imprimer plusieurs 
fois un même texte, il a donc intérêt 
à demander la création d’un fichier 
objet qui pourra ensuite être imprimé 
à volonté par l'éditeur EDIT (com- 
mande P+). 


Le fichier source, de même que le fi- 
chier objet, sont désignés par un 
nom suivi d’un numéro de lecteur 
(TEXTE,D2 par exemple). Pour le fi- 
chier source, le lecteur pris par dé- 
faut est D1. Par défaut toujours, le 
fichier objet sera écrit sur le lecteur 
utilisé pour le fichier source. 


Commandes de mise en 
page 


Le fichier source se compose du 
texte proprement dit et des comman- 
des de mise en page. Ces dernières 
ont toujours ”]” pour premier carac- 
tère. Certaines comportent un carac- 
tère numérique; dans ce cas, la fin 
de la commande est obligatoirement 
un espace. 


COMPOS reconnait six commandes : 
e ]P: provoque un saut de page 
© ]: provoque un saut à la ligne 
e ]Ln : provoque un saut de n lignes 


e ]JSn: génère n espaces en début 
de ligne 


e ]Tn: crée une marge de n carac- 
tères s'appliquant à toutes les 
lignes suivantes jusqu’à la rencon- 
tre d’une nouvelle commande T 
(ITO annule toute marge) 


e ]M: cadre la phrase suivante en 
milieu de ligne. 

Pour les commandes L, S et T,n 

vaut 1 par défaut. 


Le caractère ”]” est obtenu par 
"SHIFT-M”. Pour l'utiliser dans un 
texte, il suffit de le doubler. 


Mise en page 


L'unité de traitement de COMPOS 
est le mot, c’est-à-dire une suite de 


BNRRRPE INTERNE ET ER N 
RAPMERE SAR RE ARE À 


caractères limitée par l'indicateur de 
commande ], un espace ou un RE- 
TURN. 


Chaque enregistrement du fichier 
source peut comporter un nombre 
entier quelconque de mots. 


COMPOS calcule l’espacement libre 
entre les mots de manière que toutes 
les lignes du texte aient la même lon- 
gueur, en tenant compte de la marge 
demandée. 


Une phrase peut être précédée d’une 
ou plusieurs commandes de mise en 
page (saut de ligne par exemple). 


En l'absence de commandes, les 
phrases sont générées les unes à la 
suite des autres, une majuscule sui- 
vant toujours les caractères ”.”, ??” 
et ”!”. 


Sur imprimante ou dans le fichier 
objet, le texte est composé en minus- 
cules, à l'exception du premier carac- 
tère de chaque phrase. Il est en outre 
possible de commander l'emploi des 
majuscules pour une suite de carac- 
tères en les encadrant par @ (pour 
utiliser @ dans un texte, il suffit de le 
doubler). 


En affichage à l'écran, COMPOS met 
les majuscules en INVERSE. 


Format d’impression 


Lorsque le texte composé est sorti 
sur une imprimante (slot 1) ou copié 
dans un fichier, COMPOS retient le 
format suivant : 


e 75 caractères par ligne. 
e 66 lignes par page. 


La modification des lignes 30 et 40 
du programme PROGR.COMPOS 
permet de changer ces paramètres. 


Mise en route du compo- 
siteur 


Elle résulte des instructions suivan- 
tes : 


BRUN PROGR48K 
RUN PROGR.COMPOS 


Sur la disquette d'accompagnement, 
ces commandes sont contenues dans 
le fichier COMPOS, et il suffit donc 
de faire EXEC COMPOS. 


Exemple 


1) Le texte source est introduit 
comme suit : 


JM@LES SEPT JOURS DE LA SEMAINE@ 
JL2 UNE SEMAINE EST COMPOSEE 
DE SEPT JOURS. CE SONT : 


Pom's n° 9 


IT5 ] LUNDI ] MARDI ] MERCREDI 


] JEUDI ] VENDREDI ] SAMEDI ] DIMANCHE 
IL1 ]TO IL Y A 52 SEMAINES DANS UNE 


ANNEE. 


2) À l'impression, il sort sous la 
forme : 


jours. Ce sont : 


Lundi 
Mardi 


LES SEPT JOURS DE LA SEMAINE 


Une semaine est composée de sept 


Mercredi 
Jeudi 
Vendredi 
Samedi 
Dimanche 


Il y a 52 semaines dans une année. 





Programme PROGR.EDIT 


19 REM #*#*#*#** EDITEUR DE TEXTE EDIT 

20 REM ##“#æ»“ G. HISLEUR 

30 SCS = ‘’/": REM SEPARATEUR DE CHAINE 

40 GOSUB 93500 

SO PRINT ‘TOUTE COMMANDE SUIVIE DE ? ENTRAIN 
E": PRINT "L’AFFICHAGE DE SON MODE D’E 
MPLOI.": PRINT 

100 NDS = "“,D1": DIM SOURCES(1000) ,TN(1000),T 
U(1000) 

105 INVERSE : PRINT ‘NOM DU FICHIER A EDITER 
?"“;:: NORMAL : & INPUT NAS 

110 BS = NAS: GOSUB 8100:NDS = DIS:NAS = BsS 

115 DS = CHR$S (4): PRINT DS:'"OPEN'":NAS:NDS 

120 POKE 222,0: ONERR GOTO 165 

130 I = 1: PRINT DS;:'"READ'"':NAS 

140 & INPUT SOURCES(I) 

150 I = I + 1: GOTO 140 

165 IF PEEK (222) « > S THEN 3000 

170 PRINT DS;:'CLOSE'";:NAS:IMAX = IL:IS = O:IX 
= IMAX + 1 

175 POKE 216,0 

180 FOR I = O TO IMAX:TN(I)D = I + 1:TU(I) = 
I - 1: NEXT 

190 TNÇCIMAX) = IMAX:TU(O) = O 

1935 IF IMAX = 1 THEN NW = 1: PRINT : PRINT "“ 
NOUVEAU FICHIER": PRINT 

200 PRINT : INVERSE : PRINT ‘’COMMANDE?":: NO 
RMAL : & INPUT AS 

205 PRINT :ALS = LEFTS (AS,1):B = LEN (AS) 

210 CAS = "“NUDCIPATBFJWGRQ" 

215 FOR NC = 1 TO 15: IF ALS = MIDS CCAS,NC 
»1) THEN 320 

220 NEXT 

310 PRINT : GOSUB 3500: GOTO 200 

320 IF ALS < > ‘“"A" THEN OAS$ = AS 

330 IF MIDS (CAS,2,1) = ‘“?7" THEN HOME : RES 
TORE : FOR I = 1 TO NC: READ CS: NEXT 
: PRINT TAB( 10);:: FLASH : PRINT LEF 
TS (CS$,1);:: NORMAL : PRINT RIGHTS (Cs 
» LEN (CS) - 1): PRINT : PRINT : GOTO 
350 

340 ON NC GOTO 1000,1500,2000,2500,3000, 3500 
»4000,4500,5000,5500,6000,6500,7000,75 
90,7600 

350 ON NC GOTO 9600,9640,9680,9710,9780,9820 
»3850,9860,9880,93900,9910,9920,9940,9393 
80,939390 

10600 REM RRRRRRRHHHRHHHRRMæER REX COMMANDE N 

1010 IF B = 1 THEN 1040 

1020 IF MIDS (AS,2,1) = SCS THEN 1100 

1030 GOSUB 1200 

1040 IS = TN(IS): IF IS = IMAX THEN 8510 

1060 B = B - 1: IF B > O THEN 1040 

1080 PRINT SOURCES(IS): GOTO 200 

1100 BS$ = RIGHTS (AS,B - 2) 

1110 IS = TN(IS): IF IS = IMAX THEN 8510 

1130 C$ = SOURCES(IS):C = LEN (CS): IF C < B 

- 2 THEN 1110 

1150 FOR I=1TOC-B+3 

1160 IF MIDS (CS,1,B - 2) = BS THEN 1080 

1170 NEXT : GOTO 1110 

1200 BS = RIGHTS (CAS,B - 1) 

1205 B = VAL (BS) 

1210 IF LEFTS (BS,1) = ‘“ “ AND BS < Dee 
THEN B$ = RIGHTS (BS, LEN (CBS) - 1): 
GOTO 1210 
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1220 
1230 


1500 
1510 
1520 
1530 
1540 
1560 
1580 
1600 
1610 
1630 


1650 
1660 
1670 


2900 . 


2010 
2020 
2040 
2050 
2060 


2110 
2120 
2500 
2505 


2510 
2520 
2530 
2540 
2560 
2570 
2580 
2600 


2610 


2620 
2625 
2630 
2635 
2636 
2640 
2650 
2670 
2680 
2690 


2700 
2710 


2750 
2760 
2770 
2790 


2810 
3000 
3020 
3030 
3040 


3050 


IF BS = STRS (B) THEN RETURN 

PRINT DS'*PR#O'": PRINT ‘COMMANDE INCORRE 
CTE“: GOTO 200 

REM HARHHENHEEERERHHHHHEE COMMANDE U 


IF B = 1 THEN 1540 

IF MIDS (AS,2,1) = SCS THEN 1600 
GOSUB 1200 

IS = TUCIS): IF IS = O THEN 8510 


B = B - 1: IF B > © THEN 1540 
PRINT SOURCES(IS): GOTO 200 


BS = RIGHTS (AS,B - 2) 
IS = TU(IS): IF IS = O©O THEN 8510 
CS = SOURCES(IS):C = LEN (CS): IF C < B 
- 2 THEN 1610 
FOR I=1TOC-B+3 
IF MIDS (CS,I,B - 2) = BS THEN 1580 
NEXT : GOTO 1610 
REM #0 0 0 06 06 0 28 26 6 0 5% € COMMANDE D 
IF B = 1 THEN 2040 
GOSUB 1200 
IF IS = IMAX THEN 8510 
IF IS = O©O THEN IS = TN(O) 
SOURCES(IS) = ““:TNCTUCIS)) = TNÇCIS):TU( 
TNCIS)) = TUCIS):IS = TN(IS):B = B - 1 


5 IF B > © THEN 2040 
IF IS = IMAX THEN 8510 
PRINT SOURCES(IS): GOTO 200 
REM RAERHRHHERHHAHRHHHHMEEX COMMANDE C 
J = 2: IF MIDS (AS,2,1) = THEN J = 
3: GOTO 2540 


IF IS = O OR IS = IMAX THEN 8510 
CS = SOURCES(IS) 
IF B = 1 THEN PRINT CS: GOTO 200 
IF MIDS (AS,J,1) < > SCS THEN 1230 
FOR I = J + 1 TO B 
IF MIDS (AS,1,1) = SCS THEN 2600 
NEXT : GOTO 1230 
A1S = MIDS CAS,J + 1,1 - J - 1):A1 = L 
EN (A1$) 
IF I = B THEN A2$ = ‘“":A2 = O: GOTO 262 
S 
A28 = RIGHTS (AS&,B - I):A2 = LEN (A2$) 
IF J = 3 THEN 2750 
II = 1: GOSUB 2636: IF K = 1 THEN 1230 
PRINT SOURCES(IS): GOTO 200 
CS = SOURCES(IS):C = LEN (CS) 
FOR I = II TO C - Al + 1 


IF MIDS (CS,I,A1) = A1$ THEN 2680 


NEXT :K = 1: RETURN 
C18 = "“:C28 = "““3I1 = © - I - A1 + 1 
IF I < > 1 THEN C1$ = LEFTS (CS,I - 1 
) 
IF 11 < > © THEN C2$S = RIGHTS (CS,11) 
SOURCES(IS) = C1S + A2S + C2$S:K = O: RET 
URN 
IS = © 
IS = TN(IS): IF IS = IMAX THEN 200 
II = 1: GOSUB 2636: IF K = 1 THEN 2760 
II = I + A2: GOSUB 2636: IF K = © THEN 2 
7930 
PRINT SOURCES(IS): GOTO 2760 
REM RRRERRRHRRERREHRERMEE COMMANDE I 
CS = "": PRINT : PRINT “’‘";: & INPUT CS 
IF C$ = “#" THEN 200 
SOURCES(IX) = CS: IF IS = IMAX THEN IS = 
TUCIS) 
TUCIX) = IS:TUCTN(IS)) = IX:TNCIX) = TNC 
ISD:TNCIS) = IX:1IS = IX:1IX = IX + 1: G 
OQTO 3020 


où 


LED ENA PERS SES 


[rs 
#2 


hs + à 


Ar EE: DALERSHENEE ES 
AOCPTÉ TEST DENTYREDE 


13 


| 


n 
a 
= 
© 
"TT 
= 
© 
> 
a 
Le 
l'A 
v 
TT 
n 
E 
(°] 
Æ 
Oo 
el 
ro 
Æ 
[] 
Ÿ 
LA 


ro 
Q 
[=] 
qd 
al 
EL 
Le] 
_— 
U 
+ 
Le] 
[e 
= 
=] 
n 





33500 
3520 
3530 
3540 


3550 
3560 
33570 
3580 


35930 


3600 
4000 
4010 
4500 
4510 
S000 
5010 


5500 
SS10 
SS520 
5530 
3340 
5550 


5580 
SS530 
5600 
6000 
6010 
6020 
6030 


6040 
6500 
6505 


6510 
6520 
6580 


6590 
6600 


6605 
6610 
6615 


6620 


6630 
7000 
7005 


7010 
7020 
7030 
7040 
7050 


7060 
7070 
7080 
7030 
7100 
7110 
7120 
7130 


7140 


7210 
7220 
7230 
7240 
7500 


REM HRRHHRHHRHHRHEREHREREE COMMANDE P 
J = 2:NL = 1: IF J > B THEN 3570 
AS = MIDS (A$,J,1) 
IF A1$ = ‘“**"* THEN PRINT D$:;:"PR#1": PRI 
NT CHRS (9); "8ON":J = J + 1: IF J > B 
THEN B = B - 1: GOTO 3570 
B$ = RIGHTS (AS,B - J + 1) 
GOSUB 1205 
IF IS = © THEN IS = TN(O) 
IF IS = IMAX THEN PRINT D$;"PR#O": GOT 
0 8510 
PRINT SOURCES(IS):B = B - 1: IF B >OT 
HEN IS = TN(IS): GOTO 3580 
PRINT DS;"PR#O'": GOTO 200 
REM RARRARHHRHHRAREHX MER COMMANDE À 
AS = OAS$: GOTO 205 
REM ranananankeæxmmmæ#ee# COMMANDE T 
IS = 0: GOTO 200 
REM HRRRHARHHERRERHRAAE EE COMMANDE B 
IS = TUCIMAX): PRINT SOURCES(IS): GOTO 2 


REM RAHRRHRHAHHRREHEHHAME EX COMMANDE F 
PRINT DS;"OPEN TEMPO‘: NDS 

PRINT DS:"WRITE TEMPO" 

IS = © 

IF TNCIS) = IMAX THEN 5580 

PRINT SOURCES(TN(IS)):1IS = TN(IS): GOTO 

5540 

PRINT DS; "CLOSE TEMPO" 

PRINT D$;:"DELETE'";:NAS 

PRINT DS;'"RENAME TEMPO,'"; NAS: END 
REM HHAHRHRRRHRREHREEEX RE COMMANDE J 
GOSUB 1200:1S = © 
IS = TN(IS): IF IS = IMAX THEN 8510 


C = VAL CSOURCES(IS)): IF C « > B THEN 
6020 
PRINT SOURCES(IS): GOTO 200 
REM RAHHRHHHHHHHMEHEMEME COMMANDE W 
J = 2:BA = O:A1S = MIDS (CAS,J,1): IF A1 
$S = "#=" THEN J = 3:BA = 1 
GOSUB 8000: GOSUB 8100:NFS = BsS 
GOSUB 8000: GOSUB 1205 
PRINT DS; "OPEN": NFS;:DIS: PRINT DS:"WRIT 
E'":NFS 
IF IS = O THEN IS = TN(O) 
IF IS = IMAX THEN PRINT DS$;"CLOSE'";:NFS 
: GOTO 8510 


C$ = SOURCES(IS): IF BA = O THEN 6615 

C = VAL (CCS): IF C > B THEN 6630 
PRINT CS: IF BA = 1 THEN IS = TN(IS): G 
OTO 6600 

B = B - 1: IF B > © THEN IS = TN(IS): GO 
TO 6600 


PRINT DS;"CLOSE'";NFS: GOTO 200 
REM HRHHRHHHHHEHHHHHHHXE COMMANDE G 
J = 2:BA = O:A1$ = MIDS (AS,J,1): IF A1 
$S = ‘“»*#" THEN J = 3:BA = 1 
GOSUB 8000: GOSUB 8100:NFS = BS 
GOSUB 8000: GOSUB 120S:P1 = B 
GOSUB 8000: GOSUB 1205:P2 = B 
IF P1 < 1 OR P1 > P2 THEN 1230 
PRINT DS; "OPEN";:NFS$S;:DIS: PRINT DS$;'"READ 
".NFS 
ONERR GOTO 7210 
I = 0 
I = I +1:CS = “": & INPUT CS 
IF BA = 1 THEN I = VAL (CS) 
IF I < P1 THEN 7080 
IF I > P2 THEN 7220 
PRINT : PRINT CS 
SOURCES(IX) = CS: IF IS = IMAX THEN IS = 


TU(IS): 

TUCIX) = IS:TUCTN(IS)) = IX:TNCIX) = TN 
ISD:TNCIS) = IX:1IS = IX:IX = IX + 1: G 
OTO 7080 

IF PEEK (222) < > S THEN 9000 
PRINT D$;"CLOSE":NFS$ 

POKE 216,0 

GOTO 200 

REM RRRRRRARRRRHRRRRAX SE COMMANDE R 
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7510 


IF IS = © OR IS = IMAX THEN 8510 


7520 IF B = 1 THEN C$ = ““: GOTO 7540 
7530 C$ = RIGHTS (AS,B - 2) 
7540 SOURCES(IS) = CS: GOTO 200 
7600 REM RRRHREHRHHHHRHHAREMX COMMANDE Q 
7610 IF NW = O©O THEN END 
7620 PRINT DS;:"DELETE";:NAS: END 
8000 REM #*##7 S/P DE RECHERCHE DE PARAMETRE 
8010 I = J: IF I > LEN (AS) THEN 1230 
8020 IF MIDS (AS,1I,1) < > ‘ ‘ THEN 8050 
8030 I = I + 1: IF I > LEN (AS) THEN 1230 
8040 GOTO 8020 
8050 J = I 
8060 IF MIDS (AS,J,1) = ‘“ “ THEN 8090 
8070 J = J + 1: IF J > LEN (AS) THEN 8090 
8080 GOTO 8060 
80930 BS$ = MIDS (AS,I,J - I): RETURN 
8100 REM #*#*####7##%## ANALYSE NOM DE FICHIER 
8110 DIS = NDS: IF LEN (BS) < 4 THEN RETURN 
8120 IF MIDS (BS, LEN (B$) - 2,2) = ‘*,D"* TH 
EN DIS = RIGHTS (B$S,3):BS = LEFTS (CB 
$r LEN (BS) - 3) 
8130 RETURN 
8500 REM RRRRRRRERHHHRAHRRREARX MESSAGES 
8510 PRINT “FIN DE FICHIER": GOTO 200 
3000 PRINT "ERREUR BASIC “; PEEK (222): END 
3500 REM ####e“æ—#x”xx MENU & MODES D'EMPLOI 
93510 HOME : PRINT TAB( 7);:: INVERSE : PRINT 
"LISTE DES COMMANDES": NORMAL 
93520 PRINT : INVERSE : PRINT "“N'";: NORMAL : 
PRINT TAB( 3);'"PROGRESSION";:: PRINT 
TAB( 20);:: INVERSE : PRINT “C'";:: NORMA 
L : PRINT TAB( 22) :"CHANGEMENT" 
3530 PRINT : INVERSE : PRINT “U‘“;:: NORMAL : 
PRINT TAB( 3);:'"RECUL":: PRINT TAB( 2 
90);:: INVERSE : PRINT “A';:: NORMAL : PR 
INT TABC 22) :"REPETITION" 
9540 PRINT : INVERSE : PRINT “T";: NORMAL : 
PRINT TAB( 3):;:'"DEBUT DE FICHIER‘";:: PR 
INT TABC 20):: INVERSE : PRINT “"P'":: 
NORMAL : PRINT TAB( 22) ;"VISUALISATIO 
N° 
9550 PRINT : INVERSE : PRINT “B'";: NORMAL : 
PRINT TAB(C 3);"FIN DE FICHIER“";:: PRIN 
T TAB( 20);: INVERSE : PRINT “W":: NO 
RMAL : PRINT TAB 22) ;:"EXTRACTION" 
3560 PRINT : INVERSE : PRINT “J‘“;:: NORMAL : 
PRINT TAB( 3);'"POSITIONNEMENT";:: PRIN 
T TAB( 20);: INVERSE : PRINT “G“;: NO 
RMAL : PRINT TAB( 22);:"INTEGRATION" 
93570 PRINT : INVERSE : PRINT “D‘;:: NORMAL : 
PRINT TAB(C 3);'"SUPPRESSION":: PRINT 
TAB( 20);:: INVERSE : PRINT “F‘“;: NORMA 
L : PRINT TAB 22);:"FIN D’EDITION" 
3580 PRINT : INVERSE : PRINT "“I'":: NORMAL : 
PRINT TAB(C 3); "INSERTION"; : PRINT TA 
BC 20);: INVERSE : PRINT ‘“Q“:: NORMAL 
: PRINT TAB( 22) ;'"ABANDON D’EDITION"“ 
95930 PRINT : INVERSE : PRINT “R‘":: NORMAL : 
PRINT TAB( 3);'"REMPLACEMENT":: PRINT 
TAB( 20):;:: FLASH : PRINT “?‘";: NORMAL 
: PRINT TAB(C 22);"LISTE COMMANDES": 
PRINT : RETURN 
3600 PRINT : INVERSE : PRINT “"N P‘“;: NORMAL 
: PRINT TAB( 12); "PROGRESSION DE P LI 
GNES DANS" 
9610 PRINT TAB( 12);"LE FICHIER (PAR DEFAUT 
P=1)." 
9620 PRINT : INVERSE : PRINT “N/CHAINE":: NO 
RMAL : PRINT TAB( 12) ;'"PROGRESSION JU 
SQU’A LA LIGNE" 
3630 PRINT TAB( 12) ;:'"OU APPARAIT LA CHAINE. 
“: GOTO 200 
9640 PRINT : INVERSE : PRINT ‘“U P'‘:: NORMAL 
: PRINT TAB(C 12);'""RECUL DE P LIGNES D 
ANS LE" 
3650 PRINT TAB( 12); "FICHIER (PAR DEFAUT P= 
1.” 
9660 PRINT : INVERSE : PRINT “U/CHAINE":: NO 
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3670 


3680 


3630 


93700 


3710 


9720 
3730 
9740 
3750 
93760 


3770 


3780 


3730 


3800 


3810 


3820 


3830 


3840 


3850 


3860 


3870 


3880 


38930 


39300 


99310 


9920 


3330 


3340 


39350 


3360 


RMAL : PRINT TAB(C 12);'"RECUL JUSQU’A 
LA LIGNE OU" 

PRINT TABC 12);'"APPARAIT LA CHAINE.": 
GOTO 200 

PRINT : INVERSE : PRINT "D P‘“;: NORMAL 
: PRINT TAB( 7);"EFFACEMENT DE P LIGN 
ES A PARTIR" 

PRINT TABC 7);"DE LA LIGNE COURANTE (P 
AR DEFAUT" 

PRINT TABC 7);"P=1).": GOTO 200 

PRINT : INVERSE : PRINT “C/CHAINE1/CHAI 
NE2";: NORMAL : PRINT TAB( 20);'"CHANG 
EMENT DE LA" 

PRINT TAB( 20);"LIGNE COURANTE EN“ 

PRINT TABC 20);"REMPLACANT CHAINE1" 


PRINT TAB( 20);'"*PAR CHAINE2, EVEN-"“ 

PRINT TABC 20);"TUELLEMENT VIDE." 

PRINT : INVERSE : PRINT ‘“C#/CHAINE1/CHA 
INE2"*;: NORMAL : PRINT TAB( 20);"LE 


REMPLACEMENT DE‘: 
INE1 PAR CHAINE2" 
PRINT TAB( 20);"EST EFFECTUE DANS": 
PRINT TAB( 20); "TOUTES LES LIGNES": 
PRINT TAB(C 20);"OU APPARAIT CHAINE1. 
"“": GOTO 200 
PRINT : INVERSE : PRINT “I‘“*;: NORMAL : 
PRINT TAB( 4):'"INSERTION DE UNE OÙ PL 
USIEURS LIGNES" 
PRINT TAB( 4);"DERRIERE LA LIGNE COURA 
NTE.* 
PRINT : PRINT TAB( 4); "LA FIN DE L’INS 
ERTION EST INDIQUEE" 
PRINT TABC 4);"PAR UNE LIGNE #.": 
200 
PRINT : INVERSE :; PRINT “P N'“;: NORMAL 
: PRINT TAB 6); "VISUALISATION DE N L 
IGNES A PARTIR" 

PRINT TAB(C 6);"DE LA LIGNE COURANTE 
(PAR DEFAUT": PRINT TAB 6);"N=1)." 
PRINT : INVERSE : PRINT ‘“P* N'";: NORMAL 

: PRINT TAB( 6); "LISTE OBTENUE SUR L 
? IMPRIMANTE.": GOTO 200 
PRINT : INVERSE : PRINT “A“;:: NORMAL : 
PRINT TAB( 4);'"REPETITION DE LA COMMA 
NDE PRECEDENTE.": GOTO 200 
PRINT : INVERSE : PRINT "T'";:: NORMAL : 
PRINT TAB(C 4); "POSITIONNEMENT DEVANT 
LA PREMIERE" 


PRINT TAB( 20);'"CHA 


GOTO 


PRINT TABC 4); "LIGNE DU FICHIER.“: GOT 
O0 200 
PRINT : INVERSE : PRINT ‘“B";: NORMAL : 


PRINT TABC 4);'"*POSITIONNEMENT SUR LA 
DERNIERE LIGNE" 

PRINT TABC 4);"DU FICHIER.": GOTO 200 

PRINT : INVERSE : PRINT “F";: NORMAL : 
PRINT TABC 4);"FIN DE L’EDITION.": GO 
TO 200 

PRINT : INVERSE : PRINT “J P‘“;: NORMAL 
: PRINT TAB( 6); "POSITIONNEMENT SUR U 
NE LIGNE BASIC": PRINT TAB( 6); "DESIG 
NEE PAR SON NUMERO (P).‘": GOTO 200 

PRINT : INVERSE : PRINT “W NF P“;: NORM 
AL : PRINT TAB( S);"ECRITURE DE P LIG 
NES A PARTIR": PRINT TAB( 9);"DE LA L 
IGNE COURANTE DANS LE‘: PRINT TAB S 
); "FICHIER DE NOM NF." 

PRINT : INVERSE : PRINT ‘“W» NF P“;:: NOR 
MAL : PRINT TAB( 9S);'"ECRITURE JUSQU’A 
LA LIGNE“: PRINT TAB( 9);:"BASIC DE N 
UMERO P.“: GOTO 200 

PRINT : INVERSE : PRINT “G NF P1 P2":: 
NORMAL : PRINT TAB( 13);'"INSERTION DE 
RRIERE LA LIGNE": PRINT TAB(C 13);:"COU 
RANTE DE LIGNES ISSUES" | 

PRINT TAB(C 13);:'"DU FICHIER DE NOM NF." 
: PRINT : PRINT TAB( 13);"P1 = RANG D 
ANS LE FICHIER": PRINT TABC 13);"CITE 
DE LA PREMIERE LIGNE‘ | 

PRINT TAB( 13);'"A INSERER (1<=P1),": P 
RINT : PRINT TAB(C 13);"P2 = RANG DE 








LA DERNIERE": PRINT TAB( 13):"LIGNE ( 10 REM #*#—#*—“—*x COMPOSITEUR DE TEXTE COMPOS 





P1<=P2)." 20 REM #=—xe* G. HISLEUR 
9970 PRINT : INVERSE : PRINT "Ge NF P1 P2";: 30 NL = 66: REM NBRE DE LIGNES PAR PAGE 
NORMAL : PRINT TABC 13);"P1 ET P2 SO | 40 LL = 75: REM NB DE CARACTERES PAR LIGNE 
NT DES NUMEROS“: PRINT TAB( 13):"DE L | 50 CTS = CHRS (93): REM INDICATEUR DE COMMA 
IGNES BASIC.": GOTO 200 NDE (J) 
3980 PRINT : INVERSE : PRINT "R CHAINE";: NO | 60 IMS = “@": REM INDICATEUR DE MAJUSCULE 
RMAL : PRINT TAB( 11);"REMPLACEMENT D | 65 D$ = CHRS (4): DIM TWS(40),SOURCES (1000): 
| E LA LIGNE": PRINT TAB(C 11) :"COURANTE GoTO 1500 
PAR CHAINE.": GOTO 200 70 REM m##*»* RECHERCHE DE CARACTERE 
| 9990 PRINT : INVERSE : PRINT "“Q":: NORMAL : 80 IF IX = MAX THEN 900 
PRINT TAB( 4);"ABANDON DE L’EDITION." | 85 IF IC > LEN (SOURCES(IX)) THEN LS = CHR 
: GOTO 200 S (13):IC = 1:IX = IX + 1: RETURN 
10000 DATA “NEXT","UP","DELETE","CHANGE"," | 90 LS = MIDS (SOURCES(IX) ,IC,1):IC = IC + 1: 
INSERT“, "PRINT", "AGAIN", "TOP®, BOTTOM" RETURN 
» "FILE", "JUMP", "WRITE","GET","REPLACE" | 100 IC = 1:IL = 1:IX = 1:MJ = 1:S = © 
,"QUIT" 110 I = 1:TL = SIT =S 
120 WS = “" 
130 GOSUB 80:C = O:NS = "" 
140 IF LS = “ “ OR LS = CHRS (13) THEN 400 
150 IF LS = CTS THEN 270 
160 IF LS < > IMS THEN 200 
Programme PROGR.COMPOS 170 GOSUB 80: IF LS = IMS THEN 240 
180 IF MJ = 2 THEN MJ = O: GOTO 140 
260 GOTO 230 190 MJ = 2: GOTO 140 
270 REM m#”#** COMMANDES DE MISE EN PAGE 200 IF LS < > “." AND L& € > “!" AND Lé < 
280 GOSUB 80:-FOR C = 1 TO 7: IF LS = MIDS > "2?" THEN 215 
C"SLPTM “ + CTS,C,1) THEN 300 205 IF MJ = O THEN MJ = 1 


230 NEXT : PRINT “ERREUR TEXTE SOURCE‘: PRIN 210 GOTO 240 
T "LIGNE “;1IX: PRINT : PRINT SOURCES(I 215 IF A = 1 THEN 250 


X): GOTO 310 220 IF MJ = O THEN L = ASC (LS): IF L > = 
300 ON C GOTO 350,350,380,350,380,310,230 6S AND L < = SO THEN LS = CHRS (L + 
310 C = 2:N = O: GOTO 380 32) 
350 GOSUB 80: IF LS = “ “ OR L$ = CHRS (13) 230 IF MJ = 1 THEN MJ = © 

THEN 360 240 WS = WS + LS: GOTO 130 
355 NS = N$ + LS: GOTO 350 250 IF MJ > O THEN L = ASC (LS): IF L > = 
360 IF LEN (NS) = O THEN N = 1: GOTO 380 65 AND L < = SO THEN LS = CHRS (L - 


370 N = VAL (NS) 64) 


COMEICO Un vrai discounteur !!! 


annonce l'arrivée prochaine des micros du futur : 


LES MULTI-COMPATIBLES 


En fichez l'interface | vous avez le langage FORTHTV, l'interface ll vous avez un IBM-PCTM l'interface III vous êtes 
compatibles APPLETM (et vous pouvez vous même construire l'interface Ill un jeu d’enfant !!!) 


PRIX TVA COMPRISE 










- Diskettes 514 3M-SF-DD......................... les 10 189,00 F 
les 100 1 790,00 F 






- Disk Drive pour AppleTM 

(mécanismes Siemens : la “Rolls” des Drives !!) ....................... 2 950,00 F 
- Carte mémoire 16K ............................................. 770,00 F 
- Carte 80 colonnes: .:..:.4..4:42020 eva ae ee sauna HU na e 











- Carte controlleur pour Drive .........,............................ 
- Imprimante type Nec 8023 ........................................ 









- Monitor grande marque 12" Vert .................................. 
- Réveil LCD a fixer sur Monitor .................................... 79,00 F 
A VENIR : UN MICRO 64K + DRIVE + MONITOR ................. 9 950,00 F 
A VENIR : FRANKLIN (le compatible APPLETM U.S., MEDFLYTM, des compatibles 









COMEICO SARL, 89, R de Dunkerque 75009 PARIS M° ANVERS Tél. : 878.48.61 
TLX : 643 181 F COMEICO 


(Chercheurs français, pouvons réaliser vos projets à bas prix en Extrême-Orient grâce à nos bureaux à Hong-Kong, Taïwan. 
Contacter M" LONG) | 


ARE IEEE 
16 
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380 
390 
400 
410 


420 - 


430 
440 


460 


470 
500 
510 
520 


540 
550 


560 
570 


580 
530 


600 
610 
300 
910 
320 
9330 
340 
1000 
1010 
1020 
1030 


1040 





IF MJ = © THEN MJ = 1 
IF TL = T THEN 550 
REM #*##xx FIN DE MOT 
IF LEN (WS#) + C = © THEN 130 
IF LEN (WS) = O AND C > © THEN 470 
IF TL = © AND C > © THEN 550 
WS = "°° + WS: IF TL + LEN (WS) > LL THE 
N 500 
TWSÇCI)D = WS:I = I + 1:TL = TL + LEN (WwS) 
: IF C = O THEN 120 
D = O:WS = ““: GOTO 520 
REM #*#…##»* FIN DE LIGNE 
D = LL - TL 
GOSUB 1000:TWS(1) = WS:I = 2:TL = 5 + L 
EN (WS):T = S: IF C = © THEN 120 
IF LEN (W$) > O THEN 470 
T = O:WS = MIDS (SOURCES(IX) ,IC, LEN (SO 
URCES(IX)) - IC + 1): ON C GOTO 610,56 
0,580,600,590 
IF N < 1 THEN 110 
FOR L = 1 TO N: GOSUB 1000: NEXT : GOTO 
110 
GOSUB 1300: GOTO 110 
T = INT C(LL - LEN (W$)) / 2):1 = 1: GO 
TO 120 
S = N 
T = N!TL = N: GOTO 120 
IF TL > ©O THEN D = O: GOSUB 1000 
ON À GOTO 940,920,930 
PRINT DS$;"PR#O0": GOTO 940 
PRINT DS;"CLOSE‘;:NBS 
END 
REM ##*##% IMPRESSION D’UNE LIGNE 
BS = ““: IF I = 1 THEN 1150 
IF T = © THEN 1040 
FOR L = 1 TO T:BS = BS + ‘“ “: NEXT :T = 
[e) 
BS = B$S + TWS(1): IF I < 3 THEN 1150 


grand que; 





Controle X 
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” 


1060 


1090 
1100 


1120 


1150 
1160 
1170 


1180 
1190 


1210 


1300 
1310 
1320 
1330 
1340 


1500 
1510 


1520 


CX Base 100%... 


LA GESTION DE FICHIERS 
TOUS AZIMUTS. 








indispensable pour suivre vos clients, vos 
patients, vos commandes, vos fournis- 
seurs, pour gérer votre trésorerie, votre 
documentation, vos articles en stocks, 
pour mettre à jour vos tarifs, calculer la 
paie de vos employés, etc. 


fichier; vous, pourrez, à tout moment, 
sans avoir à réécrire les données, ajouter 
ou retrancher des rubriques; classez, 
sélectionnez vos fiches de multiples 
façons, par mots clés ou selon une combi- 
naison de critères tels que “égal” “plus 
plus petit que” “différent” 
“compris entre”; faites toutes sortes de 
calculs; corrigez automatiquement une | 
sélection de fiches; présentez les infor- 
mations de votre choix sous différentes 
formes (états, étiquettes) et dans n’im- 
porte quel ordre (alphabétique, numéri- 
que, chronologique), etc. 

“Actuellement en promotion. 


Sicob Boutique N°67 


RTE at 


K = INT (CD / 
2): FOR L = 
THEN 1100 
FOR M = 1 TO K:BS = 
BS = B$S + TWS(L): NEXT L: 
1150 
FOR L = I - 
+ 1:BS = 
WSCL): NEXT L 
IF À = 1 AND 
PRINT BS 
IL = IL + 1: 
1300 
RETURN 
FOR M = 1 TO LEN (BS):LS = 
1):L = ASC (LS): IF L > = 
= 26 THEN LS = CHRS$S (L + 64): 
SE 
PRINT LS;: 
TO 1170 
REM #*»*##x* SAUT DE PAGE 
IF A = 1 THEN 1340 
FOR L = 1 TO NL - 
IL = 1: RETURN 
PRINT TAB( 39): 
B (1): GOTO 1330 
REM ##xxx* DIALOGUE INITIAL 
HOME : PRINT TAB 8);: INVERSE : PRINT 
“COMPOSITEUR DE TEXTE": NORMAL : PRIN 
T : PRINT : PRINT "LE TEXTE COMPOSE PE 
UT ETRE GENERE PRINT 
PRINT TAB(C 5);: INVERSE : PRINT ‘“1":: 
NORMAL : PRINT TAB( 8):"SUR ECRAN‘“: P 
RINT : PRINT TAB( 5);: INVERSE : PRIN 
T “2"“;: NORMAL : PRINT TABC 8);"SUR I 
MPRIMANTE": PRINT : PRINT TAB(C S);:: 1 
NVERSE : PRINT “3";: NORMAL : PRINT T 
ABC 8); "SUR DISQUE" 


CI - 2)):K1 = D -K# 
2 TO I = KL - L 


BS + " 
IF Ki = 


Ki: TO 1°= 
BS + " 


1: FOR M 
NEXT M:BS 


nu 
ü 

- 

æ 


LEN (CBS) > © THEN 1190 


IF IL = NL - S THEN GOSUB 


MHIDS (BS,M 
1 AND L « 
INVER 


NORMAL : NEXT : PRINT “‘: GO 


IL + 1: PRINT : NEXT 


GET 2$: VTAB (24): HTA 






Un programme parfaitement mo- 
dulaire: CX Base 100 est un des pro- 
grammes de CX Système. Si vos besoins 
évoluent, vous pourrez, à tout moment, 
compléter votre programme et, en parti- 
culier, accéder à CX Texte pour un traite- 
ment de texte totalement intégré avec vos 
fichiers. 











CX Base 100 est un logiciel français déve- 
loppé par Contrôle X, et présenté dans un 
coffret luxueux avec une documentation 
complète, abondamment illustrée. 





Contrôle X, Tour Maine-Montparnasse, 33, 
avenue du Maine, 75755 Paris. Cedex 15. 
(En Belgique, Néotron, 37, rue de Florence, 
1050 Bruxelles). 





















DEMANDE DE 1 
DOCUMENTATION 

f Nom 
Société I 
Adresse i 


Tél. ol 











er 
FATTE 22 








17 


1530 PRINT : INPUT "QUE CHOISISSEZ-VOUS ?":A 1670 PRINT DS;"CLOSE";:NSS:MAX = I: POKE 216, 





1540 PRINT : PRINT “NOM DU FICHIER SOURCE ?" 0: ON A GOTO 1690,1700,1710 
5 & INPUT NS$S:DSS = “,D1": IF LEN € 16930 LL = 3S:NL = 29: HOME : GOTO 100 
NSS) < 4 THEN 1630 1700 PRINT DS:'"PR#1": PRINT CHRS (93) :'"80N": 
1560 IF MIDS (NS$, LEN (NSS) - 2,2) = “,D" GOTO 100 
THEN DSS = RIGHTS C(NSS,3):NSS = LEFT 1710 PRINT : PRINT "NOM DU FICHIER OBJET ?": 
3 (NSS, LEN (NSS) - 3) : & INPUT NBS:DBS = DSS: IF LEN (NBS 
1630 PRINT D$:"OPEN":NSS:DSS$: PRINT DS ; "READ ) < 4 THEN 1770 
“;NS$: ONERR GOTO 1660 1760 IF MIDS (NBS, LEN (NBS) - 2,2) = “,D" 
1650 I = I + 1: & INPUT SOURCES(I): GOTO 165 THEN DBS = RIGHTS (NBS,3):NBS = LEFT 
[e] S CNBS, LEN (NBS) - 3) 4 
1660 IF PEEK (222) < > S THEN PRINT “ERRE | 1770 PRINT DS;"OPEN";NBS;DBS: PRINT DS;"WRIT 
UR BASIC "; _PEEK (222): END | E'"":NBS: GOTO 100 
Fichier EDIT 9380- 57 93 20 F5 E6 CA 86 07 9478- F5 E6 86 OB EB 8A 09 B0 
9388- 4C 57 93 20 F5 EG CA 86 gkB0- 85 OC A9 01 85 09 AS 08 
SR OU Cho E 9390- 08 4C 57 93 AS 07 85 25 d4BB- 85 25 4C C3 J 20 84 FE 
. 9398- AS 08 85 24 20 22 FC RS g90- 20 20 FF 4C DO 03 00 20 
93A0- 06 FO 12 20 B1 00 C9 22 d498- 15 95 AS 09 C9 02 BO 15 
. g3h8- FO 08 09 80 20 ED FD 4C dA0- A5 08 AG 0B 88 18 6D 18 
Fichier COMPOS 93B0- A3 9 20 B1 00 A6 09 FO ganB- 93 88 DO F9 85 25 A5 0B 
BRUN PROGR48K ; 93B8- 19 AS 32 48 20 84 FE A9 géBO- 85 09 4C C3 % 20 15 95 
RUN PROGR.COMPOS , g3C0- AE 20 ED FD CA DO FA PS géBB- AS 25 69 00 ED 18 93 85 
93C8- 09 20 10 FC CA DO FA 68 gC0- 25 C6 09 20 80 FE AD 19 
93D0- 85 32 20 6F FD 8A FO 1E géCB- 93 D 96 JM 20 43 95 2 
ns 93D8- BD FF 01 C9 83 FO A BD géDO- 10 CO 2C 00 CO 10 FE AD 
GR 48 K 93E0- FF O1 29 7F 9D FF O1 CA géDB- 00 CO 2C 10 CO C9 95 FO 
49300. 9569 93E8- DO F5 A9 00 A0 02 A2 80 dMEO- 40 C9 88 FO B2 C9 9B FO 
93F0- 20 E9 ES 20 9A DA A2 00 g4EB- 51 C9 ED FO OC C9 Bt 9 
9300- A9 4C 8D F5 03 A9 1B 8D 93FB- 60 20 3A FF 4C DO 03 20 géFO- E1 C5 0C BO DD 29 OF 85 
9308- F6 03 A9 93 8D F7 03 A9 900 25 9% 4C 41 D9 20 25 M déFB- 09 68 85 83 68 85 84 A9 
9310- 00 85 73 A9 93 85 74 60 9408- A9 03 20 D6 D3 AS B9 48 9500- 00 A4 09 20 F2 E2 6 84 
9318- 02 BE 80 C9 84 FO 1D C9 d10- AS BB 48 AS 76 48 A5 75 9508- A4 83 20 2B EB A9 00 85 
9320- AB FO 13 C9 BO FO 12 C9 dé18- 48 A9 BO 48 20 B7 00 20 9510- 24 20 84 FE 60 20 84 FE 
9328- B5 FO 08 C9 AA DO 03 4C 9420- 41 D9 4C D2 D7 20 B1 00 9518- A9 AO 8D 96 % 20 50 95 
9330- 4E J 60 4C 2F M AC FF 9428- 20 67 DD 20 52 E7 60 20 9520- 60 20 15 95 AS 09 CS 0B 
9838- 98 4C 05 4 A 25 84 07 gé30- Bi 00 A2 FF 2C 10 CO CA 9528- 90 03 4C 82 % A5 25 18 
9340- A4 24 84 0B A9 00 85 09 d438- FO 13 AC 1A 93 88 FO F7 9530- 6D 18 93 85 25 EG 09 4C 
…  g%8- 85 06 20 Bi 00 20 E3 OF dé40- A9 OA 20 AB FC 2C 00 C0 9538- C3 4 20 58 FC 20 84 FE 
 S3S0- 20 6C DD 85 85 86 86 AO gé48- 10 F3 2C 10 CO 60 20 Bi 9540- 4C DO 03 A5 25 C9 18 90 
9358- 00 Bi B8 C9 2C DO 35 20 9450- 00 20 E3 DF 48 98 48 20 9548- 04 A9 17 85 25 20 22 FC 
…  g360- Bi 00 C9 4C FO 14 C9 56 géSe- FS E6 CA EO 18 BO 2E &6 9550- A4 06 C4 07 DO 06 AD % 
g368- FO 18 C9 48 FO 1D C9 22 9460- 08 20 F5 EG BA FO 26 CA 9558- 4 91 28 60 Bi 28 09 80 
9370- DO 05 E6 06 4C 4 93 4C déG8- 86 06 20 F5 E6 BA 18 65 9560- 25 32 91 28 C8 C4 07 90 
9378- 8D % 20 F5 EG 86 09 4C d70- 06 C9 29 BO 18 85 07 20 9568- F3 60 


3 MACHINES 
POUR LE PRIX D’UNE SEULE 


UNE IMPRIMANTE 
Qualité courrier 


UNE MACHINE A ÉCRIRE 


Avec marguerites interchangeables 
UN TE RMINAL émission/réception 


Avec clavier français pour la rentrée des données VOTRE APPLE 


TF. SYSTEMES propose toute la gamme UNDERWOOD- 


OLIVETTI interfacée pour votre APPLE depuis l'UNDERWOOD TOTALE FORMATION 


3000 5000 F HIT. avec interface jusqu'à l'UNDERWOOD 7500 T.F. SYSTEMES 
12000 F HIT. avec interface. 114, avenue Charles-de-Gaulle 92200 Neuilly - Tél. 745.62.73 


CARTE APPLE 





ER RRRREEE 
AMENER 
18 Pom's n° 9 





Fusion de tables de shapes 


UFS permet de fusionner deux tables 
de shapes d'origines différentes en 
une seule, en renumérotant les 
shapes de la seconde dans la succes- 
sion de celles de la première, et dis- 
pense ainsi d’alterner les deux tables 
comme on le ferait avec les deux 
POKES classiques (POKE 232, 
Adresse Basse et POKE 233, Adresse 
Haute) si l’on avait voulu utiliser 
deux tables de shapes avec un 
même programme. 


La logique des opérations se déduit 
naturellement de la structure d’une 
table de shapes de l’Applesoft, que 
l'on peut rappeler ici en quelques 
mots. 


Le manuel de référence de l'Apple II 
(page 95) illustre cette structure par 
un shéma représentant une table où 
l’on distingue trois parties : 


1 - La taille de la table occupe les 
deux premniers octets. Toutefois, 
comme cette taille est limitée à 255, 
seul le premier octet est effective- 
ment utilisé. 


2 - La table d'adresses occupe autant 
de fois deux positions qu’il y a de 
shapes dans la table. Le premier 
octet, comme il se doit, contient la 
partie basse de l’adresse de la shape 
correspondante, le second la partie 
haute. 


3 - Comme dans la table des adres- 
ses, les shapes se suivent dans l’or- 
dre de la numérotation utilisée par 
les instructions DRAW et XDRAW et 


table. Chaque shape est terminée par 
un 0. 


Partant de là, fusionner deux tables 
revient au traitement suivant : 


1 - Additionner les nombres de 
shapes et placer le résultat obtenu au 
début du nouveau module. 


2 - Mettre bout à bout les deux 
tables d'adresses en rectifiant leurs 
valeurs. Ce sont bien sûr des adres- 
ses relatives qui se comptent par rap- 
port au début de la table de shapes. 


Les adresses dans la première table 
sont augmentées de la taille de la 
partie 2 de la seconde qui s'’intercale 
entre les parties 2 et 3 de la pre- 
mière. Les adresses de la seconde 
table sont augmentées des tailles des 
parties 2 et 3 de la première. 


3 - Après les deux tables d'adresses, 
on met bout à bout les deux blocs 
de shapes. 


Le petit schéma qui suit devrait aider 
à mieux suivre les calculs effectués 
par le programme. 


TABLE 1 TABLE 2 FUSION 

1) Taille 1) Taille 1) Taille 

N1 prend 2 N2 prend 2 N3=N1+N2 sur 

octets octets 2 octets 

2) Adresses 2) Adresses 2) Adresses 

N1x2 octets N2%2 octets (N1+N2)x2 
octets) 

3) Shapes 3) Shapes 3) Shapes 

X1 octets X2 octets X1+X2 octets 


Le programme met en oeuvre ces 


par Denis Sureau 


compte des particularités des éditeurs 
de shapes existants quant aux tables 
qu'ils produisent. Des octets sans 
emploi peuvent s'intercaler entre 
deux parties normales d’une table, 
aussi calcule-t-on les points de départ 
de chaque champ sans les présuppo- 
ser sur la position suivant directe- 
ment le champ précédent. 


Notons que certains de ces éditeurs, 
et parmi les meilleurs, ne permettent 
de produire qu’un nombre limité de 
shapes, ce qui fait l'intérêt du présent 
programme à leur endroit. 


Pour utiliser le programme, insérez la 
(les) disquette(s) contenant les deux 
tables de shapes lorsque le pro- 
gramme demande leurs noms pour 
les charger. En appuyant sur ”?” puis 
RETURN, on obtient un catalogue 
préalable. La fusion s'opère sans in- 
tervention et le programme demande 
ensuite sous quel nom doit être 
sauvé le module. Insérez la disquette 
qui doit le contenir avant d'en don- 
ner le nom. En appuyant seulement 
sur RETURN, on annule l'opération. 


Le nombre de shapes correspond 
théoriquement au total des shapes 
contenues dans les deux tables primi- 
tives; cela peut toutefois s'avérer 
inexact car certains éditeurs inscrivent 
un nombre forfaitaire de shapes. 


N.D.L.R. : les fichiers fusionnés doi- 
vent être effectivement” des tables 
de shapes, sous peine d'erreurs Ap- 





elles forment la troisième partie de la principes en essayant de tenir  plesoft, voire pis encore... 
Programme UFS 210 L1 = PEEK (43616) + PEEK (43617) # 
256 
220 REM 
100 HIMEM: 8191 CHARGE SHAPE TABLE 2 
110 D1 = 16384 230 INPUT "NOM DE LA ST #2:";:S2$ 
120 DS = CHRS (4) 240 D2 = Di L1 
130 REX 250 PRINT DS'"BLOAD"S2$",A"DZ 
FUSION DE SHAPES 260 L2 = PEEK (43616) + PEEK (43617) # 
PAR DENIS SUREAU 256 
140 HOME 270 REX 
150 LIST 130:A = - 912: CALL A: CALL A CALCUL D’ADRESSES 
: REM SCROLL 280 D3 = D2 + L2 
290 REM ARRONDI DE D3: 
160 PRINT “DONNEZ ’?’ POUR AVOIR LE CAT | 300 D3 = INT ((D3 + 100) / 100) * 100 
ALOGUE'": PRINT 310 N1 = PEEK (D1) 
170 REM 320 N2 = PEEK (D2) 
CHARGE SHAPE TABLE 1 330 S1 = PEEK (D1 + 2) + PEEK (CD1 + 3) 
180 INPUT “NOM DE LA ST #1:";:S15$ * 256 + D1 
190 IF S1$ = “?" THEN PRINT CHRS (4)“ | 340 S2 = PEEK (D2 + 2) + PEEK (D2 + 3) 
CATALOG‘: GOTO 180 * 256 + D2 
200 PRINT DS"BLOAD‘S1S",A'"D1 350 S3 = D3 + 2 + N1 * 2 + N2 » 2 
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360 LS = Di + Li - S1 680 POKE D3,N1 + N2 
370 S4 = S3 + LS 690 CALL - 998: CALL - 958 
380 IF CN1 + N2) > 2SS THEN PRINT “> 2 | 700 INPUT “NOM DE LA ST OBTENUE:";53sS 
55,TROP LONG!t": END 710 IF S3$ = “" THEN 730 
330 FLASH : PRINT : HTAB 13: PRINT "<< 720 PRINT DS$"BSAVE"S3S",A"D3",L'"LS 
FUSION >>": NORMAL 730 PRINT 
400 REM 740 PRINT "ADRESSE ACTUELLE: “:D3 
COPIE DES ADRESSES DE STi 750 PRINT “VECTEUR:" 
410 J = D3 760 POKE 233,D3 / 256 
420 FOR I = D1 + 2 TO D1 + 2 + N1 * 2 S | 770 POKE 232,D3 - PEEK (233) * 256 
TEP 2 780 PRINT "POKE 232,"; PEEK (232) 
430 J = J + 2 730 PRINT “POKE 233,"; PEEK (233) 
440 TEMP = PEEK (I) + PEEK (I + 1) * 2 | 800 REM 
36 x** DEMO DES ST FUSIONNEES ##* 
4S0 TEMP = TEMP + N2 * 2 - S1 + (D1 + N1 | 810 PRINT : PRINT “DEMO (O/N)?":: GET A 
# 2 + 2) s 
460 POKE J + 1,TEMP / 256 820 IF AS < > “O“ THEN END 
470 POKE J,TEMP - € PEEK (J + 1) #* 256) 830 PRINT 
480 NEXT I 840 POKE - 16301,0 
490 REM 850 HGR 
COPIE DES SHAPES DE ST1 860 SCALE= 1: ROT= O: HCOLOR= 7 
S0O FOR I = S1 TO S1 + LS 1 870 VTAB 21: CALL - 958 
S10 POKE S3, PEEK (1):S3 = S3 + 1 880 PRINT "SHAPE # (1-"N1 + N2")“:: INP 
520 NEXT I UT S$: IF S$ = “* THEN TEXT : HO 
530 REM ME : END 
COPIE DES ADRESSES DE ST2 890 HGR 
540 J = D3 + N1 » 2 300 S = VAL (S$): DRAW S AT 140,80 
550 FOR I = D2 + 2 TO D2 + 2 * N2 STEP |910 GoTo 870 
2 920 REM 
S60 TEMP = PEEK (I) + PEEK (I + 1) * 2 #*»x LISTE DES VARIABLES x» 
56 930 REM D1i=DEBUT STi 
Fe 570 TEMP = TEMP + N1 # 2 + LS - S2 + (D2| 340 REM L1i=LONGUEUR ST1 
+ 2 + N2 * 2) 950 REM D2=DEBUT ST2 
5 580 J = J + 2 960 REM L?2=LONGUEUR ST2 
F4 590 POKE J + 1,TEMP / 256 970 REM D3=DEBUT ST3 
ee 600 POKE J,TEMP - ( PEEK (J + 1) » 256) | 380 REM L3=LONGUEUR ST3 
art 
610 NEXT I 990 REM 
620 REM 1000 REM N1i=# DE SHAPES EN ST1 
COPIE DES SHAPES DE ST2 1010 REM N2=# DE SHAPES EN ST2 
630 FOR I = S2 TO D2 + L2 1 1020 REM S3=DEBUT SHAPES DE ST1 EN ST3 
640 POKE S4, PEEK (I):5S4 S4 + 1 1030 REM S4=DEBUT SHAPES DE ST2 EN ST3 
6S0 NEXT I 1040 REM S1=DEBUT SHAPES EN ST1 
660 REM 1050 REM S2-DEBUT SHAPES EN ST2 
SAUVEGARDE DE ST3 1060 REM LS=TAILLE DU BLOC DE SHAPES DE 
670 L3 = S4 - D3 STi 





Un éditeur graphique HGR 


Jacques Duma 


EDITEUR-HGR est un programme 
simple permettant de réaliser des gra- 
phiques en haute résolution à l’aide 
des paddles. ! 


Un curseur peut être déplacé sur 
l'écran avec les deux poignées. Pour 
marquer la position d’un point, tapez 
espace” ou ‘flèche à droite”; ’es- 
pace” place seulement le point, alors 
que la flèche trace une ligne entre ce 
dernier et le précédent. La flèche à 
gauche efface ce qui vient d’être 
tracé, on peut ainsi revenir en arrière 
de plusieurs points et corriger les er- 


Lorsque le graphique est terminé, 
tapez RETURN, Le programme refait 
le dessin définitif à l’aide des don- 
nées calculées aux fins de vérifica- 
tion. 


Il peut ensuite être sauvé sous forme 
d’un fichier TEXT récupérable par 
EXEC. Indiquez pour cela le numéro 
de ligne à partir duquel vous désirez 
que votre graphique soit stocké sous 
forme de DATA. Les données mé- 
morisées sont les suivantes : 


© le premier nombre est le nombre 
de points 


© les triplets suivants sont les points 


reurs. eux-mêmes - sous la forme À,X,Y 
ASE DEEE 
20 


- où X et Ÿ sont les coordonnées 
du point, utilisables par HPLOT 
X,Y ou HPLOT TO X,Y selon la 
valeur de A, qui définit le type du 
point (A=0 résulte d’un espace” 
et A=1 d'une ”flèche à droite”). 


Le programme DESSINATEUR-HGR 
montre comment utiliser ces lignes 
de DATA. Pour réaliser vos propres 
dessins, supprimez les lignes 100 à la 
fin, et faites un EXEC du fichier que 
vous avez préalablement constitué 
avec EDITEUR-HGR. L’exécution du 
programme résultant de ces opéra- 
tions ‘rendra hommage à vos talents 


graphiques. 


Pom’s n° 9 


Programme EDITEUR-HGR 


3 MM 


190 K 


11 


= PEEK (115) + PEEK (116) * 
M = MM - 26: HIMEM: MM - 31 
INT (KM / 256):KL = KM - 256 * 
KH: POKE 232,KL: POKE 233,KH: FOR 
1 = KM TO KM + 20: READ EE: POKE 
I,EE: NEXT 
DATA 1,0,6,0,21,0,77,36,28,63,63,23, 
54,54,14,45,45,5,32,4,0 


256:K 


H = 


20 TEXT : HOME : PRINT ‘CREATION D’UN D 
ESSIN EN HGR" 
30 PRINT : PRINT : INPUT ‘NOMBRE MAXIMU 
M DE POINTS ? ‘*:°=N: DIM T#(2,N) 
40 HOME : PRINT : PRINT "LES CURSEURS D 
EPLACENT LE REPERE‘": PRINT : PRIN 
T “SUR L’ECRAN.'": PRINT : PRINT : 
PRINT 
50 PRINT : PRINT ‘"’ESPACE’ MARQUE UN PO 
INT DE DEPART.'": PRINT : PRINT " 
*->° LIE LE POINT AU PRECEDENT 
60 PRINT : PRINT * °<-’ REVIENT AU P 
OINT PRECEDENT.‘": PRINT : PRINT ‘ 
RETURN’ TERMINE L’ENREGISTREMENT 
70 VTAB 20: PRINT “.../...": VTAB 20: H 
TAB 4: GET RS 
100 HGR : POKE 49234,0: HCOLOR= 3: ROT-= 
O: SCALE= 1 
1i0 TX = © 
120 GOSUB 10000:X0% = X%:YO% = Y%x 
130 DRAW 1 AT XO%,YO% 
13353 PRINT 
140 GOSUB 20000 
150 TEXT : HOME 
160 VTAB 10: PRINT ‘VOULEZ-VOUS VERIFIE 
R ? “:: GET RS: IF RS < > ‘"O'" AN 
D RS «< > ‘“N'" THEN PRINT CHRS « 
7): GOTO 160 
170 IF RS = ‘*N'"' GOTO 310 
180 HGR : POKE 49234,0: HCOLOR= 3 
1930 FOR I = O TO TX - 1 
200 IF T#(O,I1) = O THEN HPLOT T#(1,1), 
TxX(2,1): GOTO 222 
210 HPLOT TO T#x(1,1),T%(2,1) 
222 NEXT I 
300 GET RS$: TEXT 
310 HOME : PRINT ‘SAUVEGARDE DU TABLEAU 
SOUS FORME DE DATA‘: PRINT ‘RECU 
PERABLE PAR EXEC.'": PRINT : PRIN 
T 
315 PRINT : PRINT "VOULEZ-VOUS SAUVEGAR 
DER 7 “:: GET RS: IF RS < >: "D 
AND RS < > “"N'" THEN PRINT CHRS 
(7): GOTO 315 
316 PRINT : IF R& = “N'" GOTO 610 
317 PRINT : INPUT "EN QUELLE LIGNE ? ‘: 
LI 
318 PRINT : INPUT ‘“QUEL NOM POUR LE TEX 
TE ? ‘“;NOMS: PRINT 
320 IF LEFTS CNOMS,1) < “A” OR LEFTS 
CNOMS,1) > “Z" THEN PRINT CHRS 
(7): GOTO 318 
520 PRINT CHRS (4) :"OPEN ‘‘: NOM£ 
530 PRINT CHRS (4): "WRITE ‘": NOMS 
540 TS = STRS (LI) + "DATA" + STRS (TX 
- 1):1 = © 
550 TS = TS + "," + STRS (T#(O,1I)) + ”, 
+  STRS CT#(1,1I1)) + “"," +  STRS 
{TACZ, 732 
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560 IF LEN (TS) > 200 THEN PRINT Ts:L 
I = LI + 1:TS = STRS (LI) + “DAT 
A": GOTO 590 
570 I = I + 1: IF I > = TX THEN PRINT 
T#: GOTO 600 
580 GOTO 550 
590 I = I + 1: IF I < TX THEN TS = TS + 
STRS (TX(O,ID) + “," + STRS (CT 
(1,192 + %," + STRS (TX(2,1)): G 
OTO 560 
600 PRINT CHRS (4);"CLOSE “;NOMS 
610 PRINT : PRINT “TERMINE. AU REVOIR. 
999 HIMEM: MM 
1000 END 
10000 X%X = PDL (0) / 255 * 279:Y%x = PD 
L (1) / 255 »* 191: RETURN 
20000 IF PEEK (49152) > 127 GOTO 20020 
20010 GOSUB 10000: XDRAW 1 AT XO%,YO%:X 
O%x = XX:YO»% = Yx: XDRAW 1 AT XO%, 
YO%: GOTO 20000 
20020 GET R£: IF R& = CHRS (13) THEN 
RETURN 
20030 IF TX < N AND RS = “ “ THEN Tx(1, 
TX) = XOX:T%(2,TX) = YO%:T#%(O,TX) 
= O!TX = TX + 1: XDRAW 1 AT XO%,  Îh 
YO%: HPLOT XO%,YO%: XDRAW 1 AT XO LA 
%,YO%: GOTO 20000 sn 
20040 IF TX > 1 AND RS = CHRS (8) THEN M 
TX = TX - 1: HCOLOR= O: HPLOT Tx 
(1,TX - 12,T%(2,TX - 1) TO Tx(1,T 
X),T%(2,TX): HCOLOR= 3: GOTO 2000 Mi 
[e) #x 
20050 IF TX < > © AND TX < N AND RS = rs 
CHRS (21) THEN T#(C1,TX) = XO%:Tx 
(2,TX) = YOX:T%(O,TX) = 1:TX = TX LR 
+ 1: HPLOT Tx(1,TX - 2),T%(C2,TX Las 
- 2) TO XO0%,YO%: GOTO 20000 
20060 PRINT CHRS (7): POKE 49168,0: GO 
TO 20000 
Programme DESSINATEUR HGR 
10 WT = 1: REM TEMPS DE PAUSE ENTRE LES 
POINTS 
20 HOME : HGR : POKE 49234,0: HCOLOR= 3 
30 READ N 
40 FOR I = O TO N: READ A,X,Y 
50 IF A = O THEN HPLOT X,Y: GOTO 70 
60 HPLOT TO X,Y 
70 FOR W = 1 TO WT: NEXT : NEXT 
80 PRINT CHRS (7) 
90 GET RS: HGR : TEXT : HOME : PRINT " 
AU REVOIR.": END 
100 DATA 57,0,79,72,1,76,61,1,79,51,1, 
89,40,1,89,55,1,86,62,1,79,74,0,8 
2,80,1,74,80,1,68,75,1,56,71,1,48 
»72,1,38,76,1,30,86,1,24,96,1,24, 
106,1,25,116,1,28,127,1,33,146,1, 
41,158,1,52,159,1,60,152,1,73,150 
101 DATA 1,83,154,1,86,158,1,94,158,1, 
103,152,1,110,139,1,115,122,1,108 
»116,1,105,104,1,110,94,1,118,89, 
1,112,79,1,103,74,1,94,73,1,84,80 
»0,117,89,1,30,89,0,26,103,0,24,1 
03,1,105,103,0,108,116,1,25,116,0 
»29, 132 
102 DATA 1,111,131,0,107,147,1,35,147, 
0,0,191,1,0,0,1,279,0,1,279,191,1 
50,191,0,13,179,1,13,31,1,212,31, 
1,212,179,1,18,179,0,0,0 
SN SR 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


DT 


5 Verbatim 





HE ANRT 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 


- 5 l/4"" en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
A 


22 Pom's n° 9 














Deux méthodes sont a priori envisa- 
geables pour réaliser un programme 
de puzzle sur micro-ordinateur. La 
première serait une présentation des 
pièces morceau par morceau, en 
d’autres termes, l'Apple afficherait 
successivement de façon aléatoire 
chaque case du dessin et attendrait 
que le joueur la situe correctement 
sur l’original. 


La seconde, qui vous est ici propo- 
sée, affiche l'ensemble des pièces 
mélangées et vous laisse le soin de 
remettre les choses en ordre. 


Un premier conseil : ne vous laissez 
pas effrayer par la difficulté appa- 
rente du problème. Le monde peut 
se reconstituer en moins de deux 
heures, je l’ai fait ! 


120 morceaux sont à remettre en 
place ; ce n’est pas la mer à boire. 
Aussi, pour corser la difficulté, l’Ap- 
ple va tester votre mémoire visuelle 
et votre sens de l'analyse en comp- 
tant soigneusement le nombre de vos 
recours au dessin original. Il ne vous 
laissera d’ailleurs que quelques se- 
condes pour l’observer et, lorsque le 
puzzle sera intégralement reconstitué, 
il vous gratifiera de quelques qualifi- 
catifs que vous aurez sans doute mé- 
rités et qu’il vous appartiendra d'in- 
terpréter. 


En ce qui concerne le programme 
lui-même, il n’y a que deux parties 
importantes : mélange des morceaux 
et affichage, puis attente des directi- 
ves du joueur. 


Mélange et affichage 


Le mélange et l'affichage se trouvent 
aux lignes 800 à 930 (ou 935 pour 
la couleur) du programme BASIC, 
qui renvoient aux lignes 100 à 140 
dans lesquelles est exécuté l'appel au 
sous-programme en langage-machine 
implanté de 8460 à 84C3. Ils utili- 
sent une zone de mémoire tampon 
située à l'adresse 17232 correspon- 
dant à l’adresse initiale d’un morceau 
d'écran placé en bas et à gauche sur 
la page HGR2. Une fois le mélange 
effectué, le traitement d'affichage 
prend le premier morceau d'écran 
qu'il met en mémoire tampon 
(17232), puis le second qu’il met à 
l'adresse du premier, puis le troi- 
sième qu’il met à la place du second, 
et ainsi de suite jusqu’au 120ème, 
après lequel il reprend le premier 
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Reconstituez le puzzle 


pour le mettre à l'adresse du 
120ème. La boucle étant ainsi bou- 
clée, c’est alors à vous de jouer. 


Attente des directives 


Les lignes 1000 à 1030 du pro- 
grammme correspondent à l'attente 
de vos directives. Les deux mor- 
ceaux qui se trouvent échangés par 
ces dernières transitent toujours par 
la zone tampon et la routine en lan- 
gage-machine. 


Conception du 
programme 


Le programme peut traiter n'importe 
quel dessin enregistré sur disquette. 


Il utilise des modules en langage ma- 
chine dont vous trouverez plus loin la 
récapitulation et qui assurent les 
fonctions suivantes : 


1) Module ONNER-128 


- 300 à 309: routine de ONNER 
GOTO (cf page 124 du manuel de 
l'Applesoft). 


- 380A à 32B : mise à zéro des octets 
qui sont à 128. Sans cette routine, le 
programme, qui fait pour sa part la 
différence entre les O et les 128, 
n’annoncerait jamais que le puzzle 
est entièrement reconstitué. 


2) Module TRANS 


- 8000 à 802B : transfert de la page 
HGR à la page HGR2. 


- 8030 à 8417 : shapes HGR conte- 
nant l'alphabet, les chiffres, le point, 
le point d'exclamation et l'étoile. 


- 8418 à 8443: comparaison des 
deux pages HGR, octet par octet, 
pour savoir si le puzzle est reconsti- 
tué. 


- 844D à 845F : musique. 


- 8460 à 84C3: échange des mor- 
ceaux du puzzle. 


- 8500 à 872A : routine de charge- 
ment rapide de fichiers binaires de 
Jacques Tran-Van (cf Pom's 4). 


Remarques sur le programme en Ap- 
plesoft : 


- Ligne 100 : B1, B2, C1 et C2 sont 
les parties hautes et basses des 
adresses de début de chaque mor- 


Joël Lecoeur 


ceau du puzzle. Elles sont placées 
aux adresses 250, 251, 252 et 253 
pour la sous-routine d'échange des 
morceaux. 


- Ligne 300 : cet échange nécessite 
une zone tampon, d’où les 3 appels 
à la sous-routine. 


- Ligne 400 : début du programme. 


- Ligne 498 : CALL —31488 lance le 
programme de chargement rapide. 


- Ligne 500 : c’est ici que commence 
le programme pour un nouveau des- 
sin. 


- Ligne 560: appel du module de 
transfert d'image. 


- Ligne 600 : effacement des zones 
d'écran nécessaires et mise en place 
des coordonnées. Puis mise en place 
de l’image finie sur la page 1. 


- Lignes 800 à 930: mélange des 
morceaux et affichage. 


- Ligne 890 : adresse de début de la 
zone tampon. 


- Ligne 915: possibilité d’interrom- 
pre le programme pendant l'affichage 
par CTRL-Z. 


- Ligne 940 : effacement de la zone 
tampon sur HGR2. 


- Ligne 980 : affichage de l'étoile sur 
HGR. 


- Lignes 1000 à 1030: le pro- 
gramme attend 4 données représen- 
tant les coordonnées des pièces à 
échanger. Accessoirement, il traite les 
erreurs d'entrée, émet sons et clo- 
ches, et autorise le passage au dessin 
original ou aux règles du jeu. 


- Ligne 1040: transformation des 
‘coordonnées en numéros permettant 
la recherche des DATA correspon- 
dants. 


- Ligne 1100 : B(E1) et B(C1) sont 
les adresses des deux morceaux qui 
vont être échangés. 


- Ligne 1120 : effacement de l'étoile 
sur la page puzzle et effacement de 
la zone tampon sur la page de l’origi- 
nal afin de voir si la reconstitution est 
terminée (CALL —31720). 


- Ligne 1150 : remise en place de 
l'étoile. 

- Ligne 1160 : si l'adresse 254 est à 
zéro, c’est gagné ! 


- Ligne 1200 : flip-flop entre les deux 
pages. 
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- Ligne 1210 : boucle d’attente pour 
l'observation de l'original. 


- Lignes 2000 à 2250 : traitement de 
la victoire. Ligne 2070 : impression 
du BRAVO. QUELLE PATIENCE 
!!. A partir de la ligne 2117 : qualifi- 
catifs musicaux traduisant l’apprécia- 
tion de l'ordinateur à l'égard de votre 
performance. 


- Lignes 2500 à 2710 : chaque varia- 
ble est une appréciation. 


- Ligne 3000 : règles du jeu, disponi- 
bles à tout moment. 


- Ligne 4000 : affichage du titre et 
appel facultatif au règlement. 


- Lignes 10000 à 10090 : ces 120 
nombres sont les adresses de début 
de chaque morceau du puzzle. 


- Ligne 10100 : BRAVO … 


- Ligne 10500 : musique de la vic- 
toire. 


- Ligne 20000 : cette routine d’erreur 
vise principalement à traiter les er- 
reurs sur le nom des graphiques, ou 
les omissions de ma part. 


Pour que ce programme puisse fonc- 
tionner avec la couleur, si vous en 
disposez, quelques modifications sont 
nécessaires pour que le mélange des 
morceaux ne s'effectue qu'entre co- 
lonnes paires, ou impaires, sans inte- 
raction entre les deux types de co- 
lonnes. 


Vous trouverez ci-après la liste des 
modifications en question, et je vous 
précise dès maintenant qu'elles nui- 
sent sensiblement à la rapidité d’exé- 
cution du programme. 


RE —————————————Z 


Programme PUZZLE 680 POKE - 16300,0 
690 CALL - 32747 
800 FOR I = 1 TO 120: READ B(I) 
O LOMEM: 24576: HIMEM: - 32768 pag MSN me, 
1 ONERR GOTO 20000 830 NEXT 
2 HOME : INVERSE : VTAB 23: PRINT “appu | 840 D en NN UT 
5 UNE TOUCHE": NORMAL : POK | SES LE N = 1 SHen ans 
"3 HOME : PRINT CHRS (4)"CATALOG" RARE RER ERP NE MENS EAN SE 
“ 4 VWAIT - 16384,128: POKE - 16368,0 RENTE 
“  S POKE 35,24: HOME DON Te » 17882 
M 10 coro 400 895 B = TA:C = B(M(1)): GOSUB 100 
. DS LE E 900 FOR Z = 1 TO 119 
È Re SU TO pie tr PNEU OS PAR Side L'OURe S EN NS COLE 
MN 110 C1 = INT (C / 256):C2 = C - C1 » 25 Tant CCR 6 BEN EIRE CRLL 4 
Hs ë 31667 
N 120 PoKE 250,c2: POKE 251,c1 910 B° = BCMCZ)):C = BCHCZ + 1): GOSUB 1 
_ 130 POKE 252,B2: POKE 253,B1 
M 140 CALL - 31646: RETURN 915 IF PEEK ( - 16384) = 154 THEN TEX 
| 300 FOR I = 1 TO 3: GOSUB 100 1° PORRS A TES SRE 
310 IF I = 1 THEN C = BP:B = BM °20 NET & 
320 IF I = 2 THEN C = TA:B = BP 930 B = B(M(120)):C = TA: GOSUB 100 
320 NEXT I: RETURN 940 POKE 230,64: HCOLOR= O: FOR I = 176 
400 HOME : TEXT TO 191: HPLOT O,1 TO 21,1: NEXT 
498 PRINT CHRS (4)"BLOAD TRANS": CALL >. HOOEOR® 93 PORE 299242 
- 31488 980 DRAW 37 AT 3,185 
500 DIM M(120),B(120) 220: COrQ: F001 
517 GOSUB 4000 M 
520 POKE 34,6: HOME : POKE 34,0 1001 FOR I = 1 TO 4: GET AS(I):A = ASC 
525 VTAB 12: INPUT "LE TITRE DU DESSIN As | 
CHOISI. ..";TS 1005 IF A = 47 THEN GOSUB 3000: POKE 
530 HOME = 16304,0 
540 POKE 233,128: POKE 232,48 1006 ANA EARD NAS 26 ORCA 2-27 OR 
555 & TS,8192 À = 32) THEN 1008 
557 IF PEEK (812) > O THEN CALL 801 1007 IF 2 + 1 THEN 1009 
260 CALL = 32747 1008 IF A = 13 THEN I = O: FOR J = 1 TO 
565 POKE 230,32 10: POKE 6,10 + I * 5: POKE Fee 
570 ROT= O0: SCALE= 1 CALL - 31667: NEXT J: GOTO 1030 
597 POKE - 16297,0: POKE - 16302,0: p| 1910 IF À = 32 THEN GOSUB 1200 
OKE - 16304,0: POKE - 16299,0 |1020 IF A = 27 THEN CLEAR : RESTORE : 
600 HCOLOR= © HOME : TEXT : GOTO 500 
610 FOR I = O TO 13: HPLOT 1,15 TO 1,19| 1025 IF A = 26 THEN TEXT : END. 
1: NEXT 1026 IF I = 1 OR I = 3 THEN IF À < 65 
620 FOR I = 176 TO 191: HPLOT 13,1 TO 2 OR À > 76 THEN POKE 6,20: POKE 7 
79,1: NEXT ,30: CALL - 31667: FOR J = 1 TO 
630 J = 26: HCOLOR= 3 3: POKE 6,20: POKE 7,10: CALL - 
640 FOR I = 28 TO 172 STEP 16 31667: NEXT J:I = I - 1: GOTO 103 
6S0 J = J + 1: DRAW J AT 3,1: NEXT 0 
655 J = 0 1027 IF 1 = 2 OR I = 4 THEN IF A < 48 
660 FOR I = 22 TO 253 STEP 21 OR A > 57 THEN POKE 6,25: POKE 7 
670 J = J + 1: DRAW J AT 1,185: NEXT »30: CALL - 31667: FOR J = 1 TO 
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3: POKE 6,25: POKE 7,10: CALL - 
31667: NEXT J:I = I - 1: GOTO 103 
(o) 
POKE 6,30 + I * 20: POKE 7,18: CAL 
L - 31667 
NEXT I 
FOR I = 1 TO 2 
IF I = 2 THEN AS(1) = AS(3) 
A1 = ASC CAS(1)) - 64 
IF I = 2 THEN El = A1 + VAL (AS(4 
)) * 12: GOTO 10930 
C1 = A1 + VAL (AS(2)) »* 12 
NEXT I 
C = BCE1):BM = C:BP = B(C1):B = TA 
GOSUB 300 
HCOLOR= O: DRAW 37 AT 3,185 
POKE 230,64: FOR I = 176 TO 1931: H 
ELOT O,I TO 21,1: NEXT : POKE 230 
» 32 
CALL - 31720 
HCOLOR= 3: DRAW 37 AT 3,185 
IF PEEK (254) = © THEN 2000 
GOTO 1000 
IF GAGNE = 1 THEN POKE - 1629393,0 
: GET AS:A = ASC (AS): IF A = 27 
THEN 1020 
IF GAGNE = 1 THEN 1230 
POKE - 16299,0: POKE - 16368,0 
FOR II = 1 TO BOUCLE: IF PEEK « - 
16384) > 128 THEN II = BOUCLE 
IF PEEK ( - 16384) = 175 THEN GO 
SUB 3000: POKE - 16304,0 
NEXT II 
POKE - 16368,0: POKE - 16300,0:N 
B = NB + 1: RETURN 
HCOLOR= O: FOR I = 1 TO 2: POKE 23 
0,32 * I 
FOR J = 177 TO 1931: HPLOT 13,J TO 
279,J: NEXT J 
NEXT I: POKE 230,32: HCOLOR= 3 
DIM BR(29): FOR I = 1 TO 29: READ 
BR(I) 
DRAW BR(I) AT 14 + I * 8,185: NEXT 
I 
Z = 1 
DIM C(31),D(31),E(31) 
FOR I = 1 TO 31: READ C(I),D(I),E( 
1): NEXT I 
FOR K = 1 TO 2 
FOR I = 1 TO 31 
POKE 6,C(I): POKE 7,D(I): CALL - 
31667 
FOR J = O TO E(I): NEXT J,1 
FOR J = 1 TO 500: NEXT J,K 
POKE 230,64 
IF NB = © THEN 2700 
IF NB > S4 THEN 2710 
ON INT ÇCNB / 5) + 1 GOSUB 2500,25 
10,2520,2530,2540,2550,2560,2570, 
2580,2590,2600 
FOR I = 1 TO LEN (AS) STEP 2 
DRAW VAL € MIDS (CAS,1,2)) AT 18 + 
I * 4,185 
NEXT I: POKE 230,32 
GAGNE = 1: GOTO 1001 
AS = “22152119400520051940120540160 
80514092440393939": RETURN 
AS = “15091905012140042140160118010 
4091939": RETURN 
AS = "O6090518400315131305402114401 
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VOUS INVESTISSEZ EN 
MICROINFORMATIQUE, 
FAÎTES LE 
EFFICACEMENT. 


ous allez investir dans un ordinateur personnel. 


Vous voulez être guidé dans votre choix et garantir au 
maximum votre investissement. 


Vous voulez vous servir efficacement de votre ordinateur 
personnel et souhaitez une assistance soutenue et suivie tant sur 
le matériel que sur l'emploi des logiciels. 


MINIGRAPHE MICROINFORMATIQUE, créée à | 
Boulogne-sur-Seine il y a trois ans par Jean-Louis Orsini, met à 
votre disposition un système d'assistance efficace qui vous per- 
mettra de réussir votre investissement et d'optimiser vos résultats. 


Téléphonez-lui, il vous donnera toutes les informations 
nécessaires. 


En nous rendant visite, 
vous pourrez voir 
fonctionner 

des logiciels 
performants sur nos 
ordinateurs personnels. 


MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès 92100 Boulogne 


60844/31 


DB création 




















| 
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23530 


2540 


2550 


2560 


23570 


2589 


25939 


2600 


2700 


2710 


3000 


3020 
3040 


3950 


3060 


3070 


3072 


3075 


3080 


30930 


3100 


3110 


3120 


3130 


6011351439": 
AS = 
RN 
AS = “12014003090715071405400121401 
215140740020503393939": RETURN 
AS = “08091815140405121205401405400 
601032040120540161809142005131619 
33": RETURN 
AS = “13010920180540031518020501214 
0393939": RETURN 
AS = “12014016152112054001400601092 
040191514401505210639": RETURN 
A$ = “014019035180914393939401905180 
914400520400405130939": RETURN 
AS = “01121521052020053939394010054 
0200540161221130518010939": RETUR 
N 
AS = “O03080114204004214003250714053 
33939": RETURN 
AS = "38400315210315213939393916051 
81815172105204038": GOTO 2220 
AS = “160S2009200540200520054004054 
01203141520200539": GOTO 2220 
TIS = “REGLES DU PUZZLE": HOME : VT 
AB 1: HTAB 12: INVERSE : PRINT TI 
S 
POKE - 16368,0: VTAB 5 
PRINT "BARRE D’ESPACEMENT": 
PRINT “* FLIP-FLOP ENTRE LE P 
UZZLE ET L'ORIGINAL. CECO 
NOMISEZ CE DERNIER, L’ORDINAT 
EUR VOUS EN TIENDRA COMPTE.)'": PR 
INT 
INVERSE : 
PRINT 
ES QUE L’ON 
PRINT 
INVERSE : 
INT * 
RINT 
INVERSE : 
PRINT ‘* 
: PRINT 
INVERSE : PRINT ‘“’SLASH‘“: NORMAL : 
PRINT ‘ PASSAGE DES REGLES AU P 
UZZLE ET VICE ET VERSA." 
POKE - 16300,0: POKE - 
POKE - 16368,0 
VTAB 23: HTAB 15: 
LA PAGE S.V.P.)*: 
28: HOME 
À = PEEK ( - 


RETURN 


“1815092005120520333939": RETU 


NORMAL 


PRINÏ ‘“RETURN": NORMAL : 
POUR ANNULER LES TOUCH 
VIENT DE FRAPPER."* 


PRINT "ESC": NORMAL : PR 
CHANGEMENT DE DESSIN.‘": P 


PRINT "CTRL Z‘*: NORMAL : 
MET FIN AU PROGRAMME. " 


16303,0: 


PRINT ‘(TOURNEZ 
WAIT - 16384,1 


16384): POKE - 
154 OR A - 
POKE 34,0: 


16368 
= 155 THEN A 

- 128: HOME : GOTO 

= 175 THEN RETURN 

PRINT ‘* UNE ETOILE DANS LE COIN 
BAS A GAUCHE,INDIQUE LE PUZZLE."‘: 
PRINT ‘ RIEN, PAR CONTRE POUR 
L'ORIGINAL A RECONSTITUER.": PR 
INT 

PRINT * CHAQUE MORCEAU DU PUZZLE 
EST UN PETITRECTANGLE QU’IL CONV 
IENT DE METTRE À SA PLACE, SAUF S 
I VOUS ETES UN EMULE DE PICASS 
0.*“*: PRINT 

PRINT * IL SUFFIT POUR CELA DE D 
ESIGNER LE‘: PRINT ‘’MORCEAU RECON 
NU AINSI QUE LA PLACE OU“: PRINT 
"VOUS DESIREZ L’INSTALLER." 


se 


3140 


3150 


3160 


3170 


4090 
4020 


4030 


4032 


4040 


4050 


4055 
4060 


4070 
10000 


10010 


10020 


10030 


10040 


10050 


10060 


10070 


10080 


100930 


10100 


10500 


20000 
20005 


20010 


PRINT : PRINT ‘ POUR CE FAIRE, L 
E PRINCIPE EST CELUI": PRINT "DE 
LA BATAILLE NAVALE." 

PRINT : PRINT : PRINT *: VOICI UN 

EXEMPLE DE DESIGNATION :"“: PRINT 
: HTAB 18: PRINT ‘“F8C3" 

VTAB 23: PRINT ‘* (LE SLASH ’/° 
POUR LES REGLES)": WAIT - 16384, 
128: IF PEEK ( - 16384) = 175 TH 
EN 3000 

POKE - 

RETURN 
TIS = “PUZZLE":L = 

VTAB 3: HTAB 18 
“TIS"..#" 

VTAB 1: HTAB 18 L / 2: PRINT 
##«xxxxx": HTAB 18 - L / 2: PRINT 

HTAB 18 - L / 2: V 
x": HTAB 1 
CRE NN °° 


ASC (CBS) - 


16368,0: POKE 34,0: HOME : 


LEN (TIS) 
L / 2: PRINT 


+ 


‘ Fe 
TAB 4: PRINT ‘* 
8 - L / 2: PRINT 

B$ = “"N‘: POKE 812, 
GOTO 4040 
POKE 34,6: HOME : VTAB 12: HTAB 1: 
PRINT “VOULEZ-VOUS LES REGLES DU 
JEU ? ‘“;: GET AS: POKE 34,0 
IF AS = “O"* THEN GOSUB 3000: RETU 
RN 
HTAB 1 
IF AS < > "N°" 
gs CE ‘AS°" 
AVIER, VOUS": 


67: 


THEN VTAB 21: PRIN 
ME CHATOUILLE LE CL 
PRINT "ETES TRES AI 
MABLE...": FOR I = 1 TO 2000: NEX 
T I: POKE 34,15: HOME : POKE 34,0 
: GOTO 4040 
RETURN 

DATA 8450,8453,8456,8459,8462,846 
5,8468,8471,8474,8477,8480,8483 
DATA 8796,8709,8712,8715,8718,872 
1,8724,8727,8730,8733,8736,8739 
DATA 8962,8965,8968,8971,8974,897 
7,8980,89383,8986,8989,8992,8995 
DATA 8234,8237,8240,8243,8246,824 
3,8252,8255,8258,8261,8264,8267 
DATA 8490,8493,8496,8499,8502,850 
S,8508,8511,8514,8517,8520,8523 
DATA 8746,8749,8752,8755,8758,876 
1,8764,8767,8770,8773,8776,8779 
DATA 3002,93005,9008,9011,93014,901 
7,3020,93023,9026,9029,9032,9035 
DATA 8274,8277,8280,8283,8286,828 
3,8292,8295,8298,8301,8304,8307 
DATA 8530,8533,8536,8539,8542,854 
S,8548,8551,8554,8557,8560,8563 
DATA 8786,8789,8792,8795,8798,880 
1,8804,8807,8810,8813,8816,8819 
DATA 2,18,1,22,15,39,39,39,39,40, 
17,21,5,12,12,5,40,16,1,20,9,5,14 
r3,5,38,38,38,38 

DATA 13,4,50,13,4,50,13,4,0,13,4, 
0,13,4,0,13,4,0,13,4,0,13,4,0,13, 
4,0,13,4,70,13,4,0,13,4,0,13,4,0, 
13,4,0,13,4,0,13,4,0,13,4,0,13,4,. 
0,13,4,0,13,4,0,13,4,0,13,4,500,1 
6,4,0,16,4,0,16,4,0,16,4,0,14,4,0 
»13,4,0,19,4,0,19,4,0,19,4,0 

CALL 768 

IF PEEK (222) « 
: PRINT 
T : END 
VTAB 22: HTAB 7: 


> 6 THEN 
"ERRARE HUMANUM EST‘: 


HOME 
TEX 


INVERSE : PRINT 
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"(PAS DE DESSIN SOUS CE NOM)": NO 
RMAL : GOTO 525 


IDENTIFIANT LES MORCEAUX FIGURA 
NT DANS LES COLONNES PAIRES SERON 
T RANGES DE M(1) A M(60). LES COL 


J]LOAD ADAP-PUZZLE-COULEUR ONNES IMPAIRES DE M(61) A M(120) 





1LIST 865 IF I > 120 THEN 880 
870 K = K + 1:M(K) = L(I): NEXT 
500 DIM M(120),B(120),L(120): REM LA V | 880 TA = 17232 
ARIABLE L(CN) SERT DE TAMPON 890 FOR J = 1 TO 61 STEP 60: REM POUR 
800 FOR I = 1 TO 120: READ B(I):L(I) = EVITER QUE LE MORCEAU D’ADRESSE B 
I: NEXT (M(61)) NE VIENNE EN B(M(60)} IL 
810 FOR I = 1 TO 120 VA FALLOIR TRAITER LES DEUX SOUS- 
820 N = INT € RND (1) * 119) + 1:N1 - ENSEMBLES SEPAREMENT. 
ABS (L(N) - L(I)) / 2: REM LA co | 835 B = TA:C = B(MCJ)): GOSUB 100: REM 
NDITION N1>INT(N1) VA TESTER LA P D’OU LE DOUBLE BOUCLAGE DES LIGNE 
ARITE DES NOMBRES CHERCHES 5 890 A 935 
830 IF N = I OR N1 > INT (N1) THEN 820 | 3900 FOR Z = J TO J + 58 
840 T = L(I):L(I) = L(N):L(N) = T: NEXT 930 B = B(M(Z - 1)):C = TA: GOSUB 100 
850 K = 60:J = O: FOR I = 1 TO 120 935 NEXT J: REM LIGNES 905 A 920 INCHA 
860 IF LCI) / 2 = INT (LCI) / 2) THEN NGEES 
J = J + 1:M(CJ) = L(I): NEXT : REM | 4032 BS = “C*: REM SUITE DE LA LIGNE 4 


LIGNES 850 A 870 = LES NOMBRES 032 INCHANGEE 


Le bruit du chargement 
d'images basse résolu- 
tion 


Lors du chargement d'images basse 
résolution tels que les masques de 
MENU sur les disquettes de Pom's 
antérieures au numéro 9, on constate 
certains bruits ‘’inquiétants” de la 
part du lecteur. Cela vient du fait 
que la page texte occupe l’emplace- 
ment 5400-S7FF en laissant 64 
octets libres (cf. ”’Les adresses du 
graphique” - Pom's 1). Il se trouve 


Programme ONERR-128 


#300. 52B 


0300- 68 AB 68 A6 DF JA 48 98 
0308- 48 60 A2 20 A0 00 Bi 58 
0310- C9 80 DO 04 A9 00 91 58 
0318- 88 DO F3 E6 59 CA DO EC 
0320- 60 A9 00 85 58 A9 20 85 
0328- 59 4C OA 05 


Programme TRANS 





8000- Bi 58 91 5A 88 DO F9 E6 
8008- 59 E6 5B CA 30 06 DO FO 
8010- A0 00 DO EC 60 A3 00 85 
8018- 58 A9 20 85 59 A9 00 &5 
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que les périphériques et le DOS utili- 
sent ces adresses à leur quise, et c'est 
ainsi que $478 contient le numéro 
de piste et force donc le 7recali- 
brage” du bras. : 


La solution, appliquée à partir du 
Pom's 9 sur les disquettes d’accom- 
pagnement, consiste à BLOADer la 
routine relogeable ci-dessous, puis 
BLOADer le masque désiré en 
$6000 et enfin à faire ’CALL 768” 
pour exécuter la routine de charge- 
ment. Cette routine permet de dépla- 
cer une zone de $400 octets vers la 


8020- 5A A3 40 85 5B A2 20 A0 
8028- 00 4C 00 80 00 00 00 00 
8030- 28 00 64 00 7C 00 97 00 
8038- AE 00 C3 00 DD 00 EF 00 
8040- 09 01 21 01 30 01 40 O1 
8048- SE O1 6E 01 86 01 %ŒÆ 01 
8050- B3 01 C5 01 E2 01 FA 01 
8058- 13 02 23 02 3D 02 59 02 
8060- 77 02 97 02 AD 02 C5 02 
8068- E0 02 EE 02 07 03 1F 05 
8070- 35 03 4D 03 65 05 75 03 
8078- 90 03 A6 03 DA 05 E2 
8080- E4 03 00 00 00 00 00 00 
8088- 00 00 00 00 00 00 00 00 
8090- 00 00 00 00 04 04 04 04 
8098- 04 01 04 Oi O6 O1 06 01 
80A0- 06 06 07 07 07 05 05 05 
80h8- 06 06 06 00 05 05 05 04 
80B0- 01 04 04 03 04 01 04 04 
80BB- 03 07 07 07 06 06 06 05 
80C0- 05 07 07 06 06 06 00 01 
80C8- 05 05 04 01 06 03 07 07 
80D0- 04 03 04 O4 04 O4 O4 01 


page texte sans toucher aux adresses 
réservées. 


La zone de départ est ici $6000, 
mais on peut la changer en $XY00 
en mettant la valeur $XY—4 en 
$30E. 


Remarque : il est souhaitable de faire 
suivre le CALL 768 d’un HTAB et 
d'un VTAB. 


Merci à Thierry Le Tallec et Oli- 
vier Herz pour l'analyse et la résolu- 
tion du problème. 


80D8- 05 05 06 01 06 00 04 04 
80E0- 04 04 04 04 05 05 05 06 
80E8- 01 06 06 06 06 06 03 07 
80F0- 07 07 00 05 05 05 05 07 
80F8- 07 07 07 O4 O4 04 05 05 
8100- 05 07 07 07 04 04 04 05 
8108- 05 05 05 05 00 04 04 O4 
8110- 05 05 05 07 07 07 04 04 
8118- 04 05 05 05 05 05 00 01 
8120- 05 05 05 04 04 07 05 ® 
8128- 06 07 07 07 04 03 04 04 
8130- 04 04 04 01 05 05 05 05 
8138- 00 04 04 04 O4 04 04 06 
8140- 06 06 05 05 05 05 O4 04 
8148- 04 06 06 06 06 06 06 06 
8150- 00 01 05 05 07 O4 04 04 
8158- 04 04 04 05 07 07 07 00 
8160- 01 04 03 06 01 05 05 04 
8168- 01 04 04 O4 04 04 O4 00 
8170- 04 04 04 04 O4 04 06 06 
8178- 06 05 04 O1 04 01 04 01 
8180- 06 03 06 03 06 03 06 01 
8188- 06 01 06 01 06 00 05 05 
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8190- 05 05 07 07 07 07 O4 04 
8198- 04 04 04 04 O& 00 O& O4 
81A0- 04 04 04 04 06 01 06 O1 
B1AB- 06 04 04 01 04 01 06 06 
81B0- 06 06 06 06 06 00 04 04 
81B8- 04 04 04 04 06 06 01 06 
81C0- 01 06 01 06 01 06 04 04 
81C8- 04 04 04 04 04 00 O1 05 
81D0- 05 04 01 04 04 04 O4 04 
81D8- 03 07 07 06 03 06 06 06 
81E0- 06 06 00 04 04 04 04 04 
B1EB- 04 05 05 05 06 01 06 06 
81F0- 03 07 07 07 00 01 05 4 
81F8- O1 04 03 06 01 06 01 4 
8200- 03 04 01 04 04 04 O4 03 
8208- 07 07 06 03 06 06 06 06 
8210- 06 00 04 04 04 O4 04 04 
8218- 05 05 05 06 01 06 06 03 
8220- 07 07 06 01 06 01 06 01 
8228- 06 00 01 04 03 06 01 05 
8230- 05 04 01 04 04 03 07 07 
8238- 04 03 04 04 01 05 05 06 
8240- 01 06 00 01 O1 O4 04 04 
8248- 04 04 04 07 07 05 05 05 
8250- 05 05 00 01 04 03 04 04 
8258- 04 04 04 06 06 06 06 06 
8260- 06 01 05 05 04 01 04 O4 
8268- 04 04 04 04 00 01 O1 O4 
8270- 03 O4 03 04 04 O4 04 06 
8278- 06 06 06 06 01 06 01 04 
8280- 01 04 01 O4 O4 O4 O4 04 
8288- 00 04 04 04 04 04 04 06 
8290- 06 06 06 06 06 04 01 04 
8298- 01 04 06 06 01 06 O1 O4 
82A0- 04 04 04 Où 04 04 00 04 
82A8- 04 01 04 01 O4 O1 O4 01 
82B0- 04 06 06 03 06 03 06 01 
82B8- 06 01 06 04 04 03 04 03 
82C0- 04 03 04 03 04 O4 00 01 
82C8- 01 04 O4 04 04 03 O4 03 
82D0- 04 06 06 01 06 01 O4 Oi 
82D8- 04 01 04 04 00 05 05 05 
82E0- 05 07 07 07 07 04 O4 01 
82E8- O4 01 04 O1 O4 O1 O4 07 
82F0- 07 07 07 07 00 01 05 05 
82F8- 04 01 04 04 O4 O4 O4 03 
8300- 07 07 06 03 06 06 06 06 
8308- 04 01 04 01 04 01 04 00 
8310- 01 05 05 07 04 04 O4 O4 
8318- 04 04 06 03 06 00 05 05 
8320- 05 05 07 07 07 07 04 04 
8328- 01 04 01 05 04 01 04 O4 
8330- 03 07 07 06 03 06 00 01 
8338- 04 03 06 01 05 05 04 01 
8340- 04 O4 03 07 O4 O1 O4 01 
8348- 04 07 07 07 07 07 00 01 
8350- 01 01 04 06 04 O4 04 04 
8358- 06 03 06 03 06 03 06 05 
8360- 05 05 05 05 00 01 04 03 
8368- 06 01 05 05 04 01 04 04 


timide) 





8370- 04 03 07 07 07 O4 04 05 
8378- 05 05 05 05 00 01 05 05 
8380- 04 01 04 04 03 07 07 07 
8388- 06 06 04 04 04 04 01 04 
839- 01 05 05 05 00 01 04 04 
8398- 04 01 04 01 04 01 04 07 
8SA0- 07 07 07 07 00 01 05 05 
838- 04 01 04 04 03 04 01 4 
83B0- 04 03 07 07 06 03 06 06 
83B8- 01 05 07 06 03 06 06 00 
83C0- 05 05 O4 O1 04 01 O4 04 
83C8- 04 04 03 07 07 06 03 06 
83D0- 06 01 05 05 05 00 OC 0€ 
83D8- OC OC OC OC 17 17 17 Œ 
83E0- 0E OE 1C 1C 1C 10 1C 1C 
8SE8- 0E OE 0E 05 05 05 05 07 
83F0- 07 07 07 07 07 07 07 05 
83F8- 05 05 05 04 04 04 O4 06 
8400- 06 06 06 06 06 06 06 06 
8408- OC 00 04 80 O4 04 O4 04 
8410- 04 00 05 00 00 00 00 00 
8418- A9 00 85 FA 85 FC 85 FE 
8420- A9 20 85 FB A9 40 85 FD 
8428- A2 20 A0 00 Bi FA D1 FC 
8430- DO OD 88 DO F7 E6 FB EG 
8438- FD CA 30 02 DO EE 60 A9 
8440- 01 85 FE 60 00 00 00 00 
844B- 00 00 00 00 00 AD 30 CO 
8450- 88 DO 04 CB 07 FO 08 CA 
8458- DO F6 A6 06 4C 4D 84 60 
8460- AS FA 85 SA 85 SC À5 FB 
8468- 65 58 85 FE AS FC 85 5B 
8470- 85 SD AS FD 85 59 85 FF 
8478- A9 02 85 08 EA A2 08 A0 
8480- 02 Bi FA 91 FC 88 DO F9 
8488- B1 FA 91 FC A9 04 65 58 
8490- 85 58 85 FB A9 04 65 59 
8498- 85 59 85 FD CA DO E0 A9 
84A0- 80 65 SA 85 FA A9 80 65 
84A8- 5B 65 FC AS FE 85 58 85 
84B0- FB A5 FF 85 59 85 FD A5 
84B8- 5C 85 SA ÀS 5D 85 5B C6 
84C0- 08 DO BA 60 00 00 FF FF 
84C8- FF FF FF FF FF FF FF FF 
84D0- FF FF FF FF FF FF FF FF 
84D8- FF FF FF FF FF FF FF FF 
84E0- FF FF FF FF FF FF FF FF 
84E8- FF FF FF FF FF FF FF FF 
84FO- FF FF FF FF FF FF FF FF 
84F8- FF FF FF FF FF FF FF FF 
8500- A9 00 8D F6 03 A9 JB 8D 
8508- F7 03 A9 4C 8D F5 03 A2 
8510- 00 BD 2B 85 9D 00 9B E8 


-8518- DO F7 BD 2B 86 9D 60 


8520- EB DO F7 A9 9A D 01 9D 
8528- 4C Dé A7 AS 1E 8D AC M 
8530- AS 1F BD AD AA 20 B7 00 
8538- C9 22 DO 28 A9 06 85 Ci 
8540- A0 00 BC EB B7 20 Bi 00 
8548- C9 22 FO OC 09 80 99 75 


RÉSHVCARABAANITEETERS 
RE PER PAT MRRTE ES 


8550- AA C8 CO 1E 90 EF BO 34 
8558- A9 EF 85 C1 20 Bi 00 CO 
8560- 00 DO 4C 60 AS BB 48 A5 
8568- B9 48 20 7B DD 24 11 30 
8570- 08 A2 AS 20 F5 JC 4€ 12 
8578- Dé 68 85 B9 68 85 B8 20 
8580- ES DF 85 1E 84 1F A0 00 
8588- B1 1E DO 05 A2 OB 4C OA 
8590- 9C 8D AB AA CB Bi LE 48 
8598- C8 Bi 1E 85 1F 68 85 1E 
85A0- A0 00 B1 1E 09 80 99 75 
8SAB- AA CB CC AB AA DO F3 A9 
85B0- A0 99 75 AA CB CO 1E DO 
85B8- F8 &D BO AA 20 F5 9C 20 
85C0- B7 00 FO 12 20 BE DE 20 
8SCB- 67 DD 20 52 E7 AS 51 C9 
85D0- 02 90 B9 4E BO AA A9 01 
85D8- 8D F4 B7 A9 10 8D ED B7 
85E0- A9 11 8D EC B7 20 E6 
8SE8- CE ED B7 FO 46 20 CB 
85F0- A0 EB 8C AE AA AD AE M 
85F8- 18 69 23 A8 8D AE AA C9 
8600- 03 FO E5 A2 00 B9 BB B3 
8608- FO 29 DD 75 AA DO E6 CB 
8610- EB E0 1E DO FO B9 & B3 
8618- 29 04 DO 04 A2 OD DO 15 
8620- AC RE AA B9 B9 B3 &D ED 
8628- B7 B9 B8 B3 30 C7 8D EC 
8630- B7 DO 0E A2 06 GE 5C AA 
8638- 20 F5 9C 20 93 FE 4C D5 
8640- A6 8D AF AA 20 CB 9C A2 
8648- OC AS 1E A4 1F 20 EE & 
8650- AD AF AA FO 03 20 EA & 
8658- 20 BB 9C AD AF AA FO 40 
8660- 2C BO AA 30 OA A5 50 8D 
8668- BB B4 AS 51 @D BC B4 38 
8670- AD BB B4 E9 04 85 1E &D 
8678- FO B7 AD BC B4 E9 00 85 
8680- 1F BD F1 B7 A9 O4 8D DA 
8688- 9C 18 6D BD B4 ED AB MA 
8690- A9 00 BD E2 9C D AF AA 
8698- AD C9 B3 FO 22 20 D9 & 
86A0- AE RE AA EE F1 B7 E6 1F 
86AB- ES EO FE BO 1D BD BD ES 
86B0- DO A6 20 EA 9C 20 BB Æ 
86B8- A9 00 85 48 8D DA JC AD 
86C0- AB AA D E2 9C 20 D9 
86C8- FO 56 AD BC B3 FO E3 20 
86D0- BB 9C AD ED B3 8D ED B7 
86D8- E6 1F 20 E6 9C AD BC B3 
86E0- 8D EC B7 4C 19 9C BD BB 
86E8- B3 8D EC B7 E@ BD BB B3 
86FO- 8D ED B7 &E AE AA A9 B7 
86F8- A0 EB 20 ES B7 90 11 A2 
8700- 08 4C OA 9C AO 00 BJ BB 
8708- B4 91 1E C8 CO 00 DO F6 
8710- 60 A0 B3 DO 02 AO B4 A9 
8718- BB 8D FO B7 8C F1 B7 60 
8720- AD AC AA 85 1E AD AD MA 
8728- 85 1F 60 
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Les documentations de Visicalc, Mui- 
tiplan et Applewriter ne sont pas to- 
talement claires (ha ha !) quant à la 
façon dont doivent être fournis les 
caractères de contrôle permettant de 
passer d'un mode d'impression à 
l’autre. Il nous a semblé utile de faire 
le point sur l'envoi de ces caractères. 


Le tableau ci-contre, reproduit à par- 
tir de la documentation d'Omnis 
(merci, KA), récapitule les principaux 
codes ASCII, en représentation déci- 
male, à envoyer aux principales im- 
primantes du commerce pour attein- 
dre des objectifs courants. 


Ainsi, avec une Oki 92 (Microline), 
on passe en mode qualité courrier 
avec les caractères 27 et 49. 
Comment faut-il faire pour engendrer 
ces caractères ? Nous allons vous le 
montrer … 


Impression Visicalc 


Remarque : comme dans le livre ”’Vi- 
sicalc sur Apple”, un texte souligné 
signifie ici qu'il s’agit d’une touche à 
enfoncer et non d’un texte à entrer. 
Ainsi, RETURN signifie qu’il faut en 
foncer la touche RETURN. 


L'insertion de caractères de contrôle 
destinés à limprimante s appelle 
SETUP STRING: elle doit avoir lieu 
après la spécification du slot de l'im- 
primante. Pour me mettre en qualité 
con avec Visicalc, il me suffit de 
aire : 


Pl RETURN ”AHIBAH31 RE- 
TURN - Xy RETURN 


Les guillemets indiquent le début des 
caractères de contrôle. 


Le symbole ” A” annonce qu’un ca- 
ractère de contrôle suit. 


H1B signifie : caractère Hollerith de 
valeur 1B (1B=16+11=27 en repré- 
sentation hexadécimale). 


De la même façon, H31 correspond 
au caractère de code hexa 31, donc 
de code décimal 49. 


Xy sont les coordonnées de la case 
en bas et à droite de la zone à impri- 
mer. 


Une autre solution consite à utiliser, 
par exemple pour limiter l'impression 
à 60 colonnes avec ”’CTRL-I 60N”’, 
la représentation suivante : 
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Donnez du caractère 
à votre imprimante 


Hervé Thiriez 


MODELE IMPRIMANTE 


a joe |» 


Le #1 


Cote | m 


Due me feu [re 


17 CPI 


| 28 | 81 


He RCE EH =. ee as 
N/D N/D N/D 15 
ON N/D R7,78R 27,78 27,33 27,69 
OFF N/D 27,78 27,78 27,84 27,70 
SOULIGNEMENT ON N/D Rr7,67 27,67 27,88 27,45,1 
OFF N/D 27,68 27,68 27,89 27,45,0 


ee 


- N/D signifie Non-Disponible 


N/D 27,49* 27,49 N/D N/D 
N/D 27,48 27,48 N/D N/D 


*La qualité courrier sur l'imprimante Microline 84 utilise l'espacement 


proportionnel. 


/P1 RETURN ” CI6ON 


où ” C” signifie que le caractère sui- 
vant est un caractère de contrôle. De 
la même façon, ” E” signifie la tou- 
che ESC et ” R” la touche RETURN. 


Le problème avec Visicalc, c’est que 
lon ne peut modifier le mode d’im- 
pression en cours d'impression. La 
SETUP STRING peut seulement être 
définie au moment où une impres- 
sion est lancée. 


Impression Multiplan 


Au moment où j'écris cet article, je 
n’ai pas encore reçu la version fran- 
çaise de Multiplan, mes remarques 
concernent par conséquent la version 
US de ce programme pour l’Ap- 
ple //e. On parvient à la définition 4 
SETUP en entrant la séquence PO 
TAB” pour Printer, Options et 
la touche de tabulation qui posi- 
tionne sur la rubrique SETUP. Il m'a 
par contre été impossible de trouver 
dans la documentation ou dans la 
fonction HELP le mode d'emploi du 
SETUP. 


Il m'a fallu lire la documentation du 
Multiplan IBM PC pour comprendre 
comment il faudrait faire pour obtenir 
sur Apple le résultat escompté ! 





Une fois le curseur positionné sur la 
rubrique SETUP, pour passer le ta- 
bleau en qualité courrier avec une 
Oki 92, il faut entrer la chaîne : 


A1 


et surtout ne pas enfoncer simultané- 
ment la touche CTRL, sinon l’on re- 
vient au menu. 


Le signe d’exponentiation, comme 
dans Visicalc, annonce la venue de 
caractères de contrôle. Par contre, 
dans Visicalc, il faut mettre ce sum- 
bole avant chaque caractère de 
contrôle. Ici, il faut le mettre unique- 
ment au début de la chaîne. 


Comment pouvait-on deviner qu’il 
fallait utiliser les touches ”!” et ”1” ? 
Eh bien, ce n'était pas difficle si vous 
aviez sous les yeux la page 42 du 
Pom'’s 4 (ou la page 185 du Recueil. 
On y trouve un tableau qui montre 
que le caractère de contrôle (avec 1 
dans la colonne écran) ”!” corres- 
pond au code ASCII de valeur déci- 
male 27 ou hexa 1B. De même, le 
caractère de contrôle 1 a la valeur 
décimale 49 et la valeur hexa 31. 


Nous regrettons de ne pouvoir repro- 
duire ici le précieux tableau des 
codes ASCII publié dans le Pom's 4, 























tiiiiiss 


UE 


ŒAT 
l 
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mais il y en a cinq pages pleines, et 
cela ferait trop de redondance. Le re- 
cueil et le numéro 4 seul sont tou- 
jours disponibles (voir les bons de 
commande dans la revue). 


Ce qui est agréable avec Multiplan, 
par rapport à Visicalc, c’est qu’une 
fois la chaîne de SETUP définie, il 
n’est plus nécessaire de la réentrer à 
chaque impression. 


Impression Applewriter 


Nous parlons ici d'Applewriter Il ou 
lle, qui permettent l'insertion dans le 
texte de caractères de contrôle. On 
peut facilement, dans un texte, mé- 
langer différentes polices et tailles de 
caractères. Il faut toutefois veiller à 
modifier éventuellement les marges 
de gauche ou de droite et les cadra- 
ges pour obtenir une présentation 
agréable à l'oeil. 


L'introduction de caractères de 
contrôle dans le texte doit débuter et 
terminer par CTRL-V : la lettre V en- 
foncée pendant que la touche CTRL 
est maintenue enfoncée. Le passage 
en qualité courrier pendant un texte 
nécessite ainsi l'entrée de la chaîne : 


TRAITEMENT DE TEXTES 


Pauses en x/10 de seconde 


USES APPLESTUFF 
(# DUREE EN 1/10 DE SECONDE #) 


PROCEDURE AIT (DUREE : INTEGER) : 
VAR I, J:INTEGER: 
C:CHAR: 
BEGIN 
FOR 1:=1 TO DUREE DO 
BEGIN 
FOR J:=1 TO 74 DO 
BEGIN 
IF KEYPRESS 
THEN BEGIN 
READ (KEYBOARD, C) : 
EXIT(WAIT) : 
END; 
EN; 
END; 
END: (# HAIT #) 


Philippe Chemin 


ASTUCIEUX w 


© Progiciel pour APPLE I}, //e 


“MAGIC WINDOW 1” 


(AUTOTEXTE: version française) 
- Affiche 70 colonnes sans carte ‘*80" 
- Affiche 80 colonnes avec carte ‘‘80" 


- Affiche bientôt 132 colonnes! 
- 160 colonnes en ligne 
(par déplacement d'écran) 


- Reproduction exacte sur écran de la feuille imprimée 


1795 F ttc (AUTOTEXTE en français) 


:e SYSTEME OPERATIONNEL pour moins de 25000 F tte 
(Imprimante + APPLE //e + Progiciel AUTOTEXTE) 


e Documentation technique et tarif sur demande 


CTRL-V CTRL-{ CTRL-1 CTRL-V 


Par contre, lorsqu'on travaille avec 
Applewriter //e version française, on 
utilise en général le clavier en mode 
Azerty. Dans ce cas, il n’y a plus de 
caractère ”[”. Voici donc, pour trois 
caractères de commande d’impri- 
mante non disponibles sur le clavier 
français, la correspondance : 


Code Clavier Clavier 
ASCII US français 
27 [ ) 
28 \ Ç 
29 ] $ 


En mode US comme en mode fran- 
çais, la touche CTRL doit rester en- 
foncée pendant que le caractère ci- 
dessus est frappé. 


Nous parlerons plus en détail d’Ap- 
plewriter //e version française dans le 
numéro de décembre. Je n'ai en ce 
moment qu’une version de travail in- 
complète de ce programme, sans do- 
cumentation, en attendant le produit 
fini qui devrait sortir avant la paru- 
tion de ce numéro. 


IMPRIMANTES A DOUBLE EMPLOI 


à marguerites 
de 6000 F à 13000 F ttc 


Votre APPLE Il Europlus a un clavier QWERTY? 
TRANSFORMEZ-LE EN CLAVIER FRANÇAIS accentué 
au prix exceptionnel de 1050 F ttc au lieu de 2100 F ttc 
(jusqu'à épuisement du stock) grâce au KIT ‘CLAVIER AZERTY” 


utilisant le puissant ENHANCER Il de VIDEX 


mondialement connu et conçu pour votre clavier. 
Envoyez votre chèque à ORDINATEUR EXPRESS - 3, rue Pelouze, 75008 PARIS (522.15.15) 
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Super-impression de chaînes 


SUPER PRINT est un programme 
qui permet d'afficher un texte sans 
couper les mots ni les nombres en fin 
de ligne, en conservant tous les for- 
mats et options de la commande 
PRINT usuelle, avec la même syn- 
taxe précédée de l’ampersand. Pou- 
voir améliorer l'affichage sans mani- 
pulation laborieuse des instructions 
PRINT, tel est son intérêt essentiel. 


En outre, il est relogeable et, pou- 
vant même s'insérer dans la page 3, 
il s'emploie conjointement avec d’au- 
tres routines. 


Utilisation du 
programme 


Si l’on connait la syntaxe de l’instruc- 
tion PRINT, on connait celle de 
SUPER PRINT, la seule différence 
tenant à la présence de l’ampersand. 


L'initialisation de l’ampersand se fait 
‘ quelle que soit l'adresse de charge- 
ment du programme grâce à une 
Dune particulière expliquée plus 
oin. 


Pour être plus compréhensible, le lis- 
ting du programme est commenté au 
début de chaque procédure. Il est 
élaboré selon des principes assez 
simples et ne se complique guère 
que pour reprendre les options ordi- 
naires de l'instruction PRINT (”;” ”,” 
et commandes composées). 


Pour que ”&” pointe à l'adresse où 
le programme sera chargé en mé- 
moire quelle que soit cette adresse, 
on effectue un saut nul sur un RTS 
dans le moniteur avec pour effet de 
sauver dans la pile l'adresse de dé- 
part du JSR (voir à ce sujet la page 
81 du Manuel de Référence de l'Ap- 
ple Il pour plus de précisions). 


L'adresse obtenue est lue directe- 
ment dans la pile grâce äux instruc- 
tions : 


TSX 
DEX 
LDA $100,X (partie basse) 
LDA $101,X (partie haute) 


On ajoute à ce résultat le nombre 
d'octets qui sépare le JSR du début 
de la procédure de SUPER PRINT et 
la somme obtenue est placée en 
$3F6-$3F7, adresse du vecteur 
d'ampersand. 
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Traitement d’un nombre 
ou d’une variable numé- 
rique 


SUPER PRINT vient à la rescousse 
aussi bien des nombres coupés en 
deux par la limite d'écran que des 
chaînes de caractères. 


La routine qui affiche ordinairement 
les nombres en Applesoft se situe à 
l'adresse $ED2E (PRNTFAC) et se 
compose de deux simples appels, le 
premier à FOUT ($ED34) qui trans- 
forme le FAC en une chaîne de ca- 
ractères copiée en $100—-$101 (le 
FPBUF) et terminée par un O, le se- 
cond à STROUT ($DB3A) qui affi- 
che une chaîne pointée par Y—A et 
terminée par 0 ou ”. 


La procédure réutilise ces deux 
appels mais insère entre les deux une 
routine qui calcule le nombre de chif- 
fres avant le O dans le FPBUF, le 
compare à l'intervalle entre la posi- 
tion courante et la limite d’écran 
(pointées par $24 et $21) et effectue 
un RETURN si l’espace est insuffi- 
sant. 


Traitement d’une chaîne 
de caractères 


Le programme procède en décou- 
pant la largeur de l'écran, telle 
qu'elle est définie par les pointeurs 
de fenêtre, sur la chaîne à afficher, 
du début jusqu’à la dernière partie. 


L'intervalle qui est ainsi pris sur la 
chaîne a la position de début indi- 
quée dans DEBLIGN et la position 
de fin dans FINLIGN. Après recher- 
che d’un espace et affichage, DE- 
BLIGN pointera sur le début du der- 
nier mot de l'intervalle, qui sera 
affiché avec un nouvel intervalle s’il 
est coupé par FINLIGN. 


La procédure d'affichage teste après 
chaque caractère la fin de la chaîne 
avant la fin de l'intervalle à afficher. 
Un test sur cette longueur précédant 
le travail de découpage permet de 
sauter” celui-ci lorsque l’on arrive à 
la dernière partie de la chaîne. 


La procédure de découpage, partant 
donc de la position de la chaîne qui 
correspond à la marge droite sur 
l'écran, indiquée dans FINLIGN, re- 
vient sur la gauche à la recherche du 
premier espace et en place la posi- 


Denis Sureau 


tion dans FINLIGN. Si aucun espace 
n’est présent dans la chaîne, soit on 
saute à la ligne si le début d’impres- 
sion ne correspond pas au début 
d'écran (cas d’un HTAB XX), soit on 
force l'impression de la chaîne cou- 
pée (à l'impossible, nul n’est tenu). 


»”,7 »» » 


Les séparateurs ”;” ?”, 
et »»,9 


Les routines CHRGET et CHRGOT 
demandent à être employées ici avec 
précision car le listing de l’Applesoft, 
mêlant des fonctions diverses en ce 
qui concerne les séparateurs, n’est en 
fait d'aucun secours. Je me bornerai 
à décrire le minimum nécessaire à la 
compréhension du programme (une 
étude très approfondie sur CHRGET 
a été publiée dans le numéro de 
mars 1982 de CALL APPLE, suffi- 
samment complète pour indiquer 
comment améliorer de quelques mil- 
lisecondes cette procédure !). 


CHRGET incrémente le pointeur de 
programme TXTPTR en testant le 
caractère lu sur la nouvelle position. 
S'il s’agit de O0 (marqueur de fin de 
ligne) ou du séparateur d'instructions 
7.” l'indicateur Z est mis à 1; si c’est 
un chiffre, l'indicateur C est mis à O. 


CHRGOT produit le même résultat, 
mais teste la position courante poin- 
tée par TXTPTR sans l’incrémenter. 


Aussi, après analyse et affichage 
d'une variable ou d’un chiffre (re- 
connu grâce à l'indicateur C), le pro- 
gramme branche sur CHRGOT plu- 
tôt que sur CHRGET, car la routine 
Applesoft utilisée, FRMEVL, laissera 
le TXTPTR pointé sur le dernier ca- 
ractère utile, soit D og 20" A 
Dans le cas de la virgule, on se bran- 
che sur une routine similaire à celle 
de l’Applesoft, puis sur CHRGET 
non suivi de RETURN. S'il s’agit 
d'un point-virgule, on effectue un 
appel à CHRGET non suivi de RE- 
TURN, lequel n’est effectué qu'en fin 
de commande et lorsque le dernier 
caractère de celle-ci est différent des 
deux précédents. 


Tous les formats de la commande 
PRINT restent valides, avec une limi- 
tation pour les textes entre guillemets 
qui ne doivent pas être trop nom- 
breux sur une même commande ou 
à l’intérieur d’une boucle. 


RATE EVENTESS 


rares ss 





| 


EN 
à 
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MERE TSMATENMEMTUEE LS 


Programme SUPER PRINT DEMO 


10 PRINT CHRS (4)'"BRUN SUPER PRINT" 


20 HOME 

30 PRINT 
40 PRINT 
SO AS = "PRINT “ 
60 FOR I = 


,'"S UP 


70 B$ = BS$ + "AMPER “ + AS 


» PAR D. 


1: TO. 16: 


E R 


80 NEXT :CS$S = "SUPER " 


30 PRINT : & 
FOR I = 1 TO 


110 & PRINT CS:AS: 

120 ONEXT : PRINT 

130 PRINT AS;" AVEC COMPOSITION DE TEXT 
E,CHIFFRE,",12345:" ET VARIABLES 
“A%X,A 

140 & PRINT AS:" SUPER AVEC COMPOSITIO _ 


N DE TEXTE,CHIFFRE,",12345:" ET V 7 


PRINT Bs: 


10 


ARIABLES “:A%,A 


P“R-I NT" 
SUREAU": 


PRINT AS; "ORDINAIRE 


PRINT 


PRINT 









ATTENTION ‘DANS 1© METRES 
DENIVEURATON À EVITER ! 

TÙ ors Qu'L FALLAIT SMPOR ER 
L'ORDINATEUR … ’ 





\ 











Î St Jet ut Lee 2e 2 Len mn 2 
Fe Pur 

x INT + L 
& + + Big 
SX  9- 1983 * 
Eu Ë Mac 
7 * AUTEUR D.SUREAU +# 
& ES An du 2e ut ef et mn ee ee 
9 
10 PROGRAMME RELOCATABLE 
ll #(C) 83 POM'S & L'AUTEUR 
13 ORG $300 
14 
15 VALTYP = $0011 
16 LARGEUR = $0021 
17 HTAB =  $0024 
18 FACMO = $0080 
19 CHRGET = $00B1 
20 CHRGOT =  $00B7 
21 AMPERVCT =  $03F5 
22 CRDO = $DAFB 
23 STROUT = $DB3A 
24 OUTDO = $DBSC 
25 FRMEUL = $DD7B 
FR : fn 
28 COUT = Se 
29 
30 LONGVAR = 50018 
31 VAR =  $0019  :& $iA 
32 DEBLIGN =  $001B 
33 FINLIGN = $001D 
34 FLAG = S$001F 
36 RELVECT JSR $FF58 

TSX 

38 DEX 
39 LDA $100,X 
40 CLC 
ai ADC  #TEST-RELVECT-2 
42 STA  AMPERVCT+1 
43 LDA $101,X 
on ADC #$00 
&5 STA  AMPERVET+2 
46 LDA #$4C : JP 
47 STA AMPE 
48 RTS 
43 
50 TEST CMP +#$5a :PRINT? 
ol BEQ DEBUT 


J2 

35 + FIN DE COMMANDE SANS ?CR' 
J9 RETOUR RTS 

36 


37 VIRGULE LDA HTAB 

58 CHP #$18 

59 BCC VIRGULE2 
60 JSR CRDO 

61 VIRGULE2 ADC #$10 

62 AND #$F0 

5 STA HTAB 

65 DEBUT  JSR CHRGET 


66 
A # IDENTIFICATION DU SEPARATEUR 


69 SEPARTR JSR CHRGOT 
70 BEQ RETOUR :0 OU : 
71 BCC LECTVAR :DIGIT 
72 JSR ISLETC 
73 BCS LECTVAR :CAR ALPHA 
74 CP #52 
LE 80 LECTVAR "GUILL, 
7 De peur SINON $,% 
79 VERSDEB BEQ DEBUT ' 
80 JSR CHRGET 
82 + FIN DE COMMANDE AVEC ?CR 
84 VERSSEP JSR CHRGOT 
85 BNE  SEPARTR 
& JMP CRDO 
8B # LOCALISATION DE LA VARIABLE 
89 
90 LECTVAR LDA #0 
gi STA #52 :INIT 
3 JSR F 
33 BIT VALTYP 
El BNE  PRSTRING 
% # TRAITEMENT D'UN NOMBRE 
98 JSR FACOUT 
99 PHA 
100 LDX #0 
101 NUMBCL  INX 

LDA $100,X 


AE EEE 
32 


103 BNE  NUMBCL 

104 TXA 

105 CLC 

106 ADC HTAB 

107 CMP LARGEUR 

108 BCC SKIP 
JSR CRDO 

110 SKIP PLA 

iii JSR STROUT 

112 CLC 

113 BCC  SEPARTR 


ilé 

a # LECTURE DESCRIPTEUR DE CHAINE 
ii 

117 PRSTRING LDY #2 


118 BCL  LDA (FACMO),Y 
119 GTA  LONGVAR. Y 
120 DEV 

121 BPL BCL 

12 


123 # DEBLIGN PREND LA VALEUR 0 
124 * PUIS LA POSITION DU PREMIER 
125 # CARACTERE DE CHAQUE LIGNE 
126 * SUIVANTE 

127 

128 PRRTN  INY 

Es SCAN STY DEBLIGN 

Î 


131 # LARGEUR-HTAB+DEBLIGN DONNE LA 
132 # POSITION DU DERNIER CARACTERE 
F # DE LA LIGNE SUR LA CHAINE 

1 


135 SCANI  LDA LARGEUR 
136 CLC 
137 ADC DEBLIGN 
38 SEC 
139 SBC HTAB 
140 TAY 
hi STY FINLIGN 
142 CPY  LONGVAR 
143 BCS PRLIGN 
144 


145 # RECHERCHE DU PREMIER BLANC 
146 * PRECEDANT LE MOT COUPE ET 
et # SAUT EN PRLIGN 


349 BLANC  LDA (VAR),Y 
190 CMP  #$20 
151 BEQ PRLIEN 
152 Y 

153 CPY DEBLIGN 
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BLANC 164 

HTAB 165 PRLIEN STY 

@ PRLIGNI 166 PRLIGNI LDY 
CRDO CPY 
178 

SCANI : TEST 179 RETLIGN 
160 170 CMP  #422 *2IEME 180 NY 
161 # IMPRESSION D’UNE LIGNE {71 BEQ VERSDEB :GUILL. 181 BNE SCAN 
162 # TEST SI FIN DE CHAINE OU 172 BNE  VERSSEP 
163 # FIN DE LIGNE 173 PRBCL2 CPY FINLIGN 





Programme SUPER PRINT Conversion de REAL en entier long 


4300, 32 VAR LONGREEL:INTEGER!I36]; 
PROCEDURE CONVERTIR(R1:REAL) ; 
VAR PUIS:REAL: 
SIGNE,INC,I,INT:INTEGER: 
SIGNIF : =BOOLEAN: 
BEGIN 
SIGNIF:=FALSE: 
IF R1<O THEN SIGNE:=-1 
ÉLSE SIGNE:-+1;: 
R1:=ABSCR1); 


0500- 20 58 FF BA CA BD 00 01 
0308- 18 69 1A 8D F6 03 BD 01 
0310- 01 69 00 8D F7 03 A9 4€ 
0318- 8D F5 03 60 C3 BA FO 10 
0320- 60 A5 24 C9 18 90 05 20 
0328- FB DA 69 10 29 FO 85 24 
0330- 20 B1 00 20 B7 00 F0 EB 
0538- 90 1C 20 7D EO BO 17 CS 


Gaupan 
[= ef 
BE SEGA 
BD En 
[Te] À 
© 
2 
8 
CL © 
G4 
NDTDC Sn 
= = Le] 
TE 
SNÉ3S 
3333 
Cu ot La PT 
GSRZYGE 
eh) 2:A 
=] 
SÉ dé 
S 
| 


ATERRAT) 


0340- 22 FO 13 C9 2C FO DA C9 “ 
PUIS:=1E+36; (x 36 ») 

0350- 00 DO EO 4C FB DA A9 00 NO De HR 
0358- 85 52 20 7B DD 24 11 DO tes ii 
FOR I:=1 TO 37 = 

0560- 1E 20 34 ED 48 A2 00 EB D ne ns he 4j 
D D In IF INC<7 THEN INT:=TRUNC(CR1/PUIS) : & 
IF INT<>O THEN SIGNIF:=TRUE; ë 


0378- 68 20 3A DB 18 90 B4 A0 
0380- 02 Bi A0 99 18 00 88 10 
0388- F8 C8 84 1B A5 21 18 65 
0390- 1B 38 E5 24 AB 84 1D C4 
0598- 18 BO 15 Bi 19 C9 20 FO 
030- 0F 88 C4 1B DO F5 A5 24 
OSAB- FO 08 20 FB DA 18 90 DC 
03B0- 84 1D A4 1B C4 18 DO 09 
03B8- 20 B7 00 C9 22 FO BA D0 
OSC0- 8D C4 1D FO 08 Bi 19 20 
03C8- 5C DB CA DO E7 20 FB DA Philippe Chemin 
03D0- CB DO B7 


IF SIGNIF=TRUE THEN INC:=INC+1: 
IF INC>6 THEN INT:=0;: 
LONGREEL : =LONGREEL#*10 + INT: 
IF  INC>6 THEN INT:--1; 
R1:=R1-INT*PUIS: 
PUIS:=PUIS/10;: 

END: 

LONGREEL:=SIGNE »* LONGREEL: 

END; Cx#*CONVERTIR?:) 


Message de la rédaction 


Nous avons appris avec tristesse que notre rédacteur, Olivier Herz, devait partir au Japon. Il ne pourra hélas plus 
collaborer à Pom's aussi régulièrement que durant cette dernière année où, outre ses brillants articles, il a joué le 
rôle principal dans l’analyse des contributions des lecteurs et dans le Courrier des Lecteurs. Pom'’s recherche donc 
un collaborateur à temps partiel qui : 


ait envie de participer à la rédaction de Pom's 

connaisse bien l’Apple 

sache aller au fond des choses quand il teste un programme 
soit capable de s'exprimer clairement 

réside (si possible, mais pas essentiel) en région parisienne 


Il y a une possibilité que cette occupation devienne à temps plein par la suite. Les candidatures sont à envoyer à 
Hervé Thiriez - Pom’s - 49, rue Lamartine - 78000 Versailles. Ne pas oublier d'indiquer vos coordonnées télépho- 
niques. 
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NOUVEAUTÉS SJ [ere]: Stand Niveau 3 - Zone AF - N° 3194 


[5 
CD + ge û 
Aux Éditions == Edimicro 


MULTIPLAN SUR APPLE 
Exercices de gestion 
Philippe BOMNET 
Monk T.DINH 


MULTIPLAN SUR APPLE 
Exercices de gestion 

Ph. BONNET et N.T. DINH 
1983, 180 p. 85 F. 


Ce livre a pour but de vous 
apprendre à utiliser Multi- 
plan par l'exercice. Cha- 
que exercice, choisi pour 
son intérêt pédagogique 
et pratique, est complè- 
tement traité: objectif 


GUIDE DE L'APPLE 
par B. de MERLY 


Tome 1 : L'APPLE standard, 1983, 168 p. 68F. 
Tome2: Les Extensions, 1983, 200 p., 68 F. 
A PARAITRE : Tome 3 : Les Applications 


« Ces ouvrages sont les premiers d'une série 


poursuivi, moyens pour y parvenir, description du 
tableau, construction du modèle, indications pour 
adapter et modifier le modèle à votre gré. 


Aux Éditions MASSON EL 


INITIATION A VISICALC 
C. BAUDRY 

Coll. « ABC des langages » 
1983, 152 p. 80 F. 


L'auteur propose un apprentissage graduel de VISICALC, en indiquant son installa- 
tion sur Apple Il et T.R.S. modèle III. 
Dans la première partie, le lecteur est invité à utiliser VISICALC pour construire 
une application. Chemin faisant, les principales commandes de VISICALC sont 
décrites et mises en œuvre. 
La deuxième partie est l'occasion d'évoquer certaines particularités techniques 
de VISICALC permettant de mieux comprendre la logique de fonctionnement du 
logiciel. 
Le lecteur pourra s'y reporter, soit pour un approfondissement, soit pour voir 
décrite, sous une forme différente, une commande déjà rencontrée. 


consacrée à l'Apple II... Les tomes suivants 
traiteront des langages et des périphéri- 
ques. Les exposés sont clairs et à la 
portée de ceux qui ont des connaissances 
élémentaires en informatique ». 
MINIS ET MICROS 
N° 191 


GESTION DU PERSONNEL 
SUR MICRO-ORDINATEURS 

B. MERCK 

Coll. «Méthode + Programmes » 
1983, 200 p. 120 F 


Ce livre, qui est le premier à traiter de la gestion du personnel sur micro- 
ordinateur, intéressera tous ceux qui travaillent dans la fonction, quel que soit 
leur niveau de responsabilité 

et quelles que soient leurs connaissances informatiques. 

Ce sujet, traité avec un souci pédagogique, est illustré par une douzaine 
d'applications pratiques présentées par complexité croissante. 

Chaque application est suivie de la liste complète d’un ou de plusieurs 
programmes en Basic, immédiatement adaptables à tous les micro-ordinateurs. 


HAS AR 


BON DE COMMANDE 


(à retourner à la M.L.S.) 
D Je désire recevoir les ouvrages suivants : 











nie de ____Flibellé à l'ordre de la M.L.S. (participation aux frais de port : 1 vol.: 9F, 2 vol.: 13F, 3 vol. : 16F, 4 vol. 
e . 


D Je désire recevoir votre catalogue informatique. 
NOM : 
Adresse : 





Prénom : 











Signature : 


Prix public TTC au 15.9.83 





va € 





Mise en forme de listings 


Les programmes présentés ci-après 
sont une application des fichiers 
EXEC, dont le rôle est de formater 
des listings sur imprimante, en effec- 
tuant des sauts de page, avec titre et 
numérotation de chaque page. 


L'exécution de CREALIST constitue 
la première étape du processus. Les 
informations à foumir à ce pro- 
gramme sont : 


- Le nom du programme à lister, tel 
qu'il se trouve sur la disquette (en 
fait, le programme doit se trouver sur 
la même disquette que CREALIST, 
CAPTURE et LISTING). 


- Le numéro de la première page (s’il 
est différent de 1, le titre en double 
largeur n’est pas imprimé). 


- Le numéro de la dernière page (s’il 
est différent de 0, la mention : 
e—=—=—# FIN #—-=-=- » n'est 
pas imprimée). 


- Les numéros de la première et de 
la dernière ligne à lister (répondre 0 
pour commencer au début, et O éga- 


lement pour aller jusqu'à la fin du 
programme). 


CREALIST ouvre le fichier séquentiel 
NOMPROG qui contient les éléments 
précisés ci-dessus, puis crée le fichier 
CAPTLIST qui contient les instruc- 
tions suivantes : 


e LOAD CAPTURE 


e POKE 103,129 (déplace le poin- 
teur de début du programme 
après CAPTURE) 


e LOAD P$ (chargement du pro- 
gramme à lister) 


e Sélection des lignes à éditer (voir 
les lignes 360 à 390 de CREA- 
LIST) 


e POKE 103,1 (repositionne le poin- 
teur de début du programme en 
$801, CAPTURE et le programme 
à lister se trouvant donc ainsi 
réunis). À noter que la première 
ligne du programme à lister doit 
donc avoir un numéro supérieur 
ou égal à 10. 


Erick Ringot 


e RUN pour l'exécution de CAP- 
TURE (création du fichier PROG) 


e RUN LISTING pour exécution du 
listing” proprement dit. 


Ces instructions sont ensuite exécu- 
tées par un EXEC CAPTLIST. 


L'analyse du programme final LIS- 
TING ne doit pas poser de pro- 
blème. Vous pouvez bien sûr modi- 
fier le nombre de lignes par page fixé 
ici à 60 (ligne 280). Selon l’'impri- 
mante dont vous êtes possesseur, il 
vous faudra peut-être également mo- 
difier les caractères de contrôle utili- 
sés dans notre exemple, à savoir : 


- CHR$(14) : double largeur 

- CHR$(15) : simple largeur 

- CHR$(12) : saut de page. 

En fin de liste, le programme émet à 
l'écran le message "ERREUR TYPE 


5”, signalant ainsi simplement la fin 
des données. 


——————————_—_]_]_]___ 


4 
"| 


FARPRIR ENNEMI 


215 
220 


PRINT DS"DELETENOMPROG" 
PRINT DS$"OPENNOMPROG" 


Programme CREALIST 


ETES CRTIT 





10- BEN <=-222-25tS eue 230 PRINT DS"WRITENOMPROG* 
20 REM LISTINGS FORMATES 240 PRINT PS: PRINT TS: PRINT P: PRINT 
30 REM -------- 7: F: PRINT Li: PRINT L2 
40 : 250 PRINT DS"CLOSENOMPROG" 
50 TEXT : HOME 260 : 
60 PRINT TAB( S5)"LISTING FORMATE" 290 PRINT DS"OPENCAPTLIST" 
70 VTAB 4: PRINT “NOM DE PROGRAMME ?" 300 PRINT DS#"DELETECAPTLIST" 
80 INPUT Ps 310 PRINT DS"OPENCAPTLIST" 
90 VTAB 7: PRINT “DATE ?" 320 PRINT DS"WRITECAPTLIST" 
100 INPUT Ts 330 PRINT “LOADCAPTURE" 
110 VTAB 10: PRINT "NO DE LA PREMIERE P 340 PRINT “POKE103,129* 
AGE ?" 350 PRINT "“LOAD"PS 
111 INPUT P 360 IF Li = O©O THEN 380 
112 VTAB 13: PRINT “NO DE LA DERNIERE P 370 PRINT “DEL O,"L1 - 1 
AGE ?" 380 IF L2 = O©O THEN 400 
114 INPUT F 390 PRINT "“DEL"L2 + 1*,40000" 
130 VTAB 16: PRINT “NO DE LA PREMIERE L 400 PRINT “POKE103,1* 
IGNE ?" 410 PRINT “RUN" 
140 INPUT Li 420 PRINT “"RUNLISTING" 
150 VTAB 19: PRINT "NO DE LA DERNIERE L 430 : 
IGNE ?" 435 PRINT DS"CLOSECAPTLIST" 
160 INPUT L2 440 PRINT DS"EXECCAPTLIST" 
170 VTAB 22: PRINT “ O.K. ? <O/N> “:: G 
ET A$: PRINT CHRS (13) 
180 IF AS = “N" THEN 50 Programme CAPTURE 
190 IF AS$ < > “O" THEN PRINT CHRS «(7 
>: GOTO 170 1 D$ = CHRS (4) 
200 : 2 PRINT DS"OPENPROG" 
210 DS = CHRS (4) 3 PRINT DS"DELETEPROG" 
212 PRINT DS$"OPENNOMPROG" 4 PRINT D$"OPENPROG" 
Pom's n° 9 











S PRINT DS"“WRITEPROG" 130 PRINT PS SPC( 35 - LEN (P$))"PAGE 
6 POKE 33,33 “P SPC( 34 - LEN CTS))ITS: PRINT 
7 LIST 10 - : PRINT 
8 PRINT DS$'‘CLOSE"* 200 N = © 
9 END 205 LS = " * 

210 GET AS 

220 IF AS = CHRS (13) THEN R = R + 1: 
Programme LISTING RAID ES 

230 LS = LS + ASIN = N + 1 
20 DS = CHRS (4) 240 IF N = 76 THEN PRINT LS:N = 6: PRI 
30 PRINT DS"*OPENNOMPROG" NT TABC 6);: GOTO 205 
40 PRINT DS"READNOMPROG" 250 GOTO 210 
SO INPUT PS: INPUT TS: INFUT P: INPUT F 260 PRINT LS:Xx = FRE (O):L = L + 1 
60 PRINT D&'"CLOSENOMPROG" 280 IF R < = 45 AND L < = 60 THEN 200 
70 ONERR GOTO 300 282 IF P = F THEN 300 
80 PRINT DS"“PR#1" 285 P = P + 1: PRINT CHRS (12):R = O:L 
930 PRINT = © 
100 GET AS: PRINT CHRS (13) 2930 GOTO 130 
140 PRINT CHRS (9)'"80ON" 3900 PRINT DS'"CLOSE" 
150 PRINT DS"OPENPROG" 310 IF F = © THEN PRINT : PRINT : PRIN 
160 PRINT DS"READPROG" T TABC 30)"<<-=-=-# F I N #--=--=- 
170 IF P < > 1 THEN 190 >>" 
180 PRINT CHRS (14) TAB( 10)PS CHRS «(1 320 PRINT DS‘"PR#O"' 

5): PRINT : PRINT 330 PRINT “ERREUR TYPE ‘ PEEK (222) 
Hard copy Seikosha Accélérez COPYA 


Si la disquette sur laquelle vous voulez copier est déjà 
: initialisée, vous pouvez éviter que COPYA la réinitialise 

fonctionne tel quel que sur la GP80M. Pour le faire Lasarsess pe ; re è 

marcher avec la GP100A, il faut changer la valeur de en suivant 8 procédure ci-dessous : 

$193F ($8A) en $90. Cet octet représente une durée 1) RUN COPYA 3) 250 Er=1 


de temporisation. 2) Faire RESET 4) RUN 80 


Le programme de Hard Copy Seikosha du Pom's 7 ne 
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Lecture de fichiers TEXT 


Le programme utilitaire” listé ci- 
après permet de lire à l'écran ou 
d'imprimer tout fichier TEXT séquen- 
tiel (fichier de données ou fichier de 
traitement de texte). 


Il est suffisamment simple pour se 
suffire à lui-même sur le plan des ex- 
plications. Notons simplement le rôle 


de la sous-routine d’erreur qui 
commence en 460. Cette dernière 
permet d’une part de détecter la fin 
du fichier (B005) et, d'autre part, de 
traiter le problème des caractères de 
contrôle qui déclenchent une ”ILLE- 
GAL QUANTITY ERROR” (code er- 
reur 53) à l'appel de la fonction 
ASC. La possibilité d’avoir à lire un 


Jean-François Schwartz 


fichier TEXT comportant de nom- 
breux caractères de cette nature justi- 
fie par ailleurs l'emploi de la petite 
routine en langage-machine présen- 
tée dans le manuel de référence de 
l’'Applesoft (page 136) en vue de 
supprimer les problèmes résultant 
d'appels trop fréquents à une procé- 
dure ONERR. 





Programme LI-TEXTE 200 PRINT : INVERSE : PRINT “IMPRESSION 
(O/N) “;: GET S$: NORMAL 
210 IF S$ = "O" THEN PRINT RS + DS;"PR 


(Inspiré de Nibble Express, #1": PRINT CHRS (9):"S8ON'‘": REM 


Volume Il) IMPRIMANTE SLOT 1 
5  REM HRMMRONN MN NM NE DE D 8 DE DE D 8 220 PRINT == 
10 REM “ LECTURE DE PE 320 PRINT DS:"OPEN ":NFS ” 
20 REM #*# FICHIERS TEXTES #*+ 330 PRINT D$ ; "READ ".NFS pe, 
30 REM  +**  SEQUENTIELS  »x 340 LS = "* RE 
40 REM PM NN D D M 6 NN 8 2 350 GET CS Le) 
45 POKE 768,104: POKE 769,168: POKE 770 | 360 IF CS = RS THEN 410 “a 
»104: POKE 771,166: POKE 772,223: | 370 VC = ASC (CS) 7| 
POKE 773,154: POKE 774,72: POKE 380 IF VC > 96 AND VC < 123 THEN CS = pr 
775,152: POKE 776,72: POKE 777,96 CHRS (VC - 32) + 
50 TEXT : HOME 390 LS = LS + C$: IF LEN (LS) = 255 THE +: 
60 ONERR GOTO 460 N 410 54 
70 DS = CHRS (4) 400 GOTO 350 a 
80 R$ = CHRS (13) 410 PRINT R$:DS # 
90 CAS = CHRS (1) 420 PRINT CAS:LS 
100 A$ = “ # LECTURE FICHIERS TEXTE # " 430 GOTO 330 
110 VTAB 3: HTAB 20 - LEN (AS) / 2: IN | 440 PRINT “FIN DU FICHIER TEXTE" 
VERSE : PRINT AS: NORMAL 445 PRINT DS;"CLOSE ‘";NFS 
130 FOR X = 1 TO 40: PRINT “:":: NEXT 447 PRINT DS; "PR#O" 
140 PRINT : PRINT "PERMET AFFICHAGE À L | 450 PRINT : PRINT “AUTRE FICHIER ? (O/N 
*ECRAN DE FICHIER T." D":: GET F$: IF FS$ = “O"* THEN GO 
150 PRINT : INVERSE : PRINT “VOULEZ-VOU TO 150 
S LE ’CATALOG’ (O/N) “;:: GET Cs: 4SS IF F$ = "N" THEN S00 


NORMAL 460 CALL 768:B00 = PEEK (222): IF BOO 
151 IF C$ = “N" THEN 170 = 53 THEN 390 
182 IF CS = “O" THEN PRINT : PRINT : I | 480 IF BOO = 5 THEN GOTO 440 


NVERSE : PRINT “DRIVE <1> OU <2> 485 HOME : VTAB 10: HTAB 10 


? “:: GET X$: NORMAL 490 PRINT "ERREUR NUMERO ‘“:BOO:' SURVEN 
154 IF X$S = “1* THEN PRINT RS + D$:"CA UE." 
.  TALOG,D1" 495 FOR I = 1 TO 2000: NEXT I 
156 IF X$ = “2"* THEN PRINT R$ + D#;:"CA | SOO REM “xx FIN/BOOT x» 
TALOG,D2* 505 HOME :ZZ2$ = “ # F I N # “: VTAB 10: 


170 PRINT : PRINT 
175 HTAB 25: PRINT "<S> --> STOP": PRIN 
T 510 
180 INVERSE : INPUT “NOM DU FICHIER TEX ISQUETTE ? O/N “;: GET AS: IF LE 
TE ? ":NFS$: NORMAL FTS (AS,1) < > “O" THEN HOME : 
185 IF NFS “#* THEN 150 END 
130 IF NFS “S* THEN 500 515 PRINT CHRS (13) + 


HTAB 20 - LEN (22$) / 2: INVERS 
E : PRINT ZZ$: NORMAL 
VTAB 15: HTAB S: PRINT ‘“ ‘NOUVELLE D 


CHRS (4) ;"PR#6" 


PROGRAM ESSAI: 


Un bug de Pascal Apple (version IL. 1) ? VAR I:INTEGER: 


BEGIN 
Le programme ci-contre, quand on l'exécute, affiche .. _2768” a 
WRITELN(I): 
END. 
dos 37 








eureux DOSSESSEUrs 
d'un Apple 


JL, IE, /'e, ou //, 


VOICI votre réseau. 


CALVADOS 


© Ouvert depuis juin 1982, c'est le réseau choisi par Apple en France et par ses reven- 
deurs. 








@ Bases de données proposées par Apple pour enrichir votre pratique de l'ordinateur per- 
sonnel : 
BDT : Base de données sur le matériel Apple 
BDM: Catalogue de matériels Apple et compatibles 
BDL: Catalogue de logiciels Apple et compatibles. 


@ Messagerie électronique et panneau d'annonces accessibles à partir de tout point du ter- 
ritoire national. 


© Transfert de fichiers et de documents (traitement de texte et «calc») entre tout Apple où 
qu'il soit en France, avec conversion automatique QWERTY-AZERTY et Apple ][, //e, 
17. 


@ Pour les SSCI et créateurs de logiciels, un contact immédiat avec plus de 120 revendeurs 
(180 fin 1983), avec possibilité de diffusion de messages promotionnels. 


© Bases de données boursières (bourses françaises et étrangères). 

@ Constitution de réseaux privés sans investissements. 

© Constitution de bases de données privées pour consultation à distance. 

© Transfert d'informations entre disquettes et bandes magnétiques standard. 


© Des tarifs qui font de Calvados le moyen de communication et le serveur le moins cher 
du marché. Conditions spéciales pour clubs. 


Boîte Postale 21-07 75327 Paris Cédex 07 - Tél. : 705.09.04 
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01170 GEX 

CENTRE D'INFORMATION 
PERSONNELLE 

CROZET 

CALVA 1100 

02100 SAINT QUENTIN 
COGNET 

21, Rue Victor Basch 
(23)62.72.89 

CALVA 1087 


03200 VICHY 

03 INFORMATIQUE 

7, Rue Voltaire 
(70)31.7400-CALVA 1031 
06000 NICE 

D.S.A. INFORMATIQUE 
5, Bd Debouchage 

(93) 85.15.96 

CALVA 1125 


06000 NICE 
MICRO-MEDIA 

27, Rue Delille 
(93)85.28.06-CALVA 1073 


06000 NICE 

SORBONNE INFORMATIQUE 
40, Rue Gioffredo 
(93)85.17.55-CALVA 1072 

06150 CANNES LA BOCCA 
ONDE MARITIME 

28, Boulevard du Midi 
(93)47.44.30-CALVA 1024 


06600 ANTIBES 

ESPACE INFORMATIQUE 
1, Chemin de Saint-Claude 
(93)74.78.01-CALVA 1049 
06700 ST LAURENT DU VAR 
COMPUTERLAND 
Avenue Léon Béranger 
(93)07.61.12-CALVA 1129 
06700 ST LAURENT DU VAR 
POINT MICRO 

CAP 3000 

(93)31.24.40 -CALVA 1046 

06 MONACO 

MICROTEK 

2, Bd Rainier III 
(93)50.43.44 -CALVA 1003 
11009 CARCASSONNE 
R.2.1. INFORMATIQUE 
76, Allée d'Iéna 

(68)47.30.97 - CALVA 1040 
13005 MARSEILLE 

ELP INFORMATIQUE 
20, Rue Hugueny 
(91)9491.13 - CALVA 1056 
13006 MARSEILLE 
INTERNATIONAL 
COMPUTER/INTERSOFT 
64, Rue de Prado 

CALVA 1103 

13006 MARSEILLE 
S.M.I.A. 

33A, Avenue Jules Cantini 
{91)80.34.12 - CALVA 1113 


13007 MARSEILLE 
PROVENCE SYSTEM 
74, Rue Ste-Le St James 
(91)33.22.33 - CALVA 1055 
13008 MARSEILLE 
MEDIATEC 

485, Avenue du Prado 
(91)71.45.45 - CALVA 1112 
13100 AIX EN PROVENCE 
ECO INFORMATIQUE 
Boulevard Coq 

(42)26.20.23 - CALVA 1115 
13700 VENELLES 
SOPROGA 

Avenue de la Mouliero 
(42)61.12.43 - CALVA 1087 
14300 CAEN 
COMPUTERLAND CAEN 
12, Rue St Pierre 


(31)85.62.48 - CALVA 1098 


14390 TRONQUAY 
NORMANDIE INFORMATIQUE 
Résidence la Tuilerie 

(31)92.56.09 - CALVA 1074 

21000 DIJON 

0.M.G. 

20, Rue Michelet 

(80)30.12.70 - CALVA 1045 
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SERVICE 


CALVADOS 


rheneRnts RESEAU MICRO-INFORMATIQUE 


21000 DIJON 
LASOBIKOR 

7, Rue Monge 
(80)30.09.70 - CALVA 1014 


21000 DIJON 
SETTEMINFORMATIQUE 
36, Rue Jeannin 

{80)66.16.43 - CALVA 1033 


22000 ST BRIEUL 

CENTRE INFORMATIQUE 
BRETON 

19, Rue de Rohan 

CALVA 1082 


25200 MONTBELIARD 
MICRO ALPHA SOFT 
11, Impasse du Lacquet 
{81)97.16.46 - CALVA 1018 


29000 QUIMPER 

MATRICE DEVELOPPEMENT 
2, Venelle de Kergos 

(98)55.75.93 - CALVA 1094 
29200 BREST 

LA BOUTIQUE 
INFORMATIQUE 

156, Rue Jean Jaurès 
(98)4432.79 - CALVA 1107 


30000 NIMES 

T.I, 
58, Rue Pierre Semard 
(66)36.02,52 - CALVA 111 
30100 ALES 
ARCOMEL 
8bis, Rue Mistral 
(66)52.15.91 : CALVA 1083 
31000 TOULOUSE 
BURE AUMATIQUE 
4, Promenade des Capitouls 
(61)21.87.27 - CALVA 1128 





37000 TOURS 

BOUTIN INFORMATIC 
36, Rue Marceau 
(47)20.51.83 - CALVA 1060 


37000 TOURS 
POLY-SOFT 

23, Avenue Molière 
(47)66.66.49 - CALVA 1010 
37000 TOURS 
SELECTRON 

20-24, Rue de Jérusalem 
(47)20.80.70 - CALVA 1093 


38100 GRENOBLE 

GAMMA INFORMATIQUE 
9, Cours de la Libération 
(76)96.30.05 - CALVA 1048 
45000 ORLEANS 

A.G.O. 

22, Rue Etienne Dolet 
(38)54.45.13 - CALVA 1090 


45 ORLEANS 01 

A.M.C. 

13, Rue des Minimes 
(38)62.62.58 - CALVA 1116 


46013 NANTES 

SIVEA 

121, Bd Gabriel Guist'hau 
(40)47.53.09 - CALVA 1097 


53000 LAVAL 

SLAD INFORMATIQUE 
29, Rue Ambroise Paré 
(43149.25.45 - CALVA 1026 


54000 NANCY 

JEAN VLASTOS 

MICRO INFORMATIQUE 
143, Rue Sgt Blandon 


(8)341.26.16 - CALVA 1130 


Ces revendeurs APPLE 
sont abonnés à CAIMDOS. 


Demandez-leur 
une démonstration! 


31000 TOULOUSE 
SOUBIRON 

9, Rue J.F. Kennedy 
(61)21.64.39 - CALVA 1020 
33000 BORDEAUX 

B 33 BOUTISOFT 

9, Rue de Lalande 
(56)91.55.08 - CALVA 1122 


34000 MONTPELLIER 
MICRO 34 
INFORMATIQUE 

7, Cours Gambetta 
(67)92.91,23 - CALVA 1080 


34130 VALERGUES 
C.E.B.E.A. 

Route Nationale 113 
(67)71.76.69 : CALVA 1079 
35000 RENNES 
COMPUTERLAND 
BRETAGNE 

13, Avenue du Mail 
(99)5447.12 - CALVA IOII 
35000 RENNES 
X-MATIC 

161, Avenue Général Patton 
(99)38.31.80 - CALVA J121 
35100 RENNES 

DELTA INFORMATIQUE 
4, Place de Bretagne 
(99)30.65.18 - CALVA 1120 
35000 TOURS 

A.R.E.I. 

8, Allée du Manoir 
CALVA 1099 





54000 NANCY 
PRECILAB 
96, Rue Stanislas 


(8)337.06.78 - CALVA 1016 


54400 LONGWY 
SOCIETE RANDOM 
18, Rue Mercy 
CALVA 1081 

54520 LAXOU 
SEMITEC 

69, Rue de Maréville 
(8)340.43.38 - CALVA 1008 
56000 VANNES 
L'ORDINATEUR 56 
38, Bd de la Paix 


(97)54.29.50 - CALVA 1108 


57000 METZ 

LA MICRO BOUTIQUE 
ECONOMAISON 

3, Rue Paul Bezanson 
(8)775.41.56 - CALVA 1114 


57800 FREYMING-MERLEBACH 


CENTRE MICRO- 
INFORMATIQUE 

3, Place de la Gare 
(8)781.14.89 - CALVA 1030 
59000 LILLE 

M.B.D.C. 

172, Rue Solférino 
CALVA 1061 

59000 LILLE 

RYO INFORMATIQUE 
42, Rue de Paris 


(20)30.63.11 - CALVA 1076 


59000 LILLE 

SIVEA 

21bis, Rue de Valmy 
(20)57.88.43 - CALVA 1075 
59300 VALENCIENNES 
MICROMEGA 

38, Rue des Famars 
(27)42.3030 - CALVA 1086 


59700 MARCQ EN BAROEUL 
MICRODATA 
INTERNATIONAL 

920, Avenue de la République 
CALVA 1084 

59800 LILLE 
MICRO-INFORMATIQUE 
5, Rue de Pas-Nouveau Siècle 
(20)54.62.22 - CALVA 1063 
60105 CREIL 

QUENEUTTE B.P. 48 
(4)425.04.26 - CALVA 1032 


63000 CLERMONT-FERRAND 
FLAGE LCTRIC 

142, Avenue Mermoz 
(73)92.13.46 - CALVA 1119 
63008 CLERMONT-FERRAND 
NEYRIAL INFORMATIQUE 
3, Cours Sablon 

{73)92.89.50 - CALVA 1110 


63100 BAYONNE 

LE CALCUL INTEGRAL 
3, Rue A. Briand 
(59)27.63.28 - CALVA 1089 
67000 STRASBOURG 
CILEC 

18, Quai St Nicolas 
(88)37.31.61 - CALVA 1015 
67000 STRASBOURG 
MICRO-MAT 

30,. Rue Geiler 

(88)60.68.68 - CALVA 1077 
67200 STRASBOURG 
WALZ INFORMATIQUE 
89, Route des Romains 
(88)29,5455 - CALVA 1105 


69003 LYON 

AB INFORMATIQUE 
18, Rue Pailleron 
(7)851.44.86 - CALVA 1041 
69003 LYON 

ALPHA SYSTEMS 

84, Av. du Maréchal de Saxe 
({7)860.89.34 - CALVA 1036 
69006 LYON 

ALTI 

39, Rue Barrier 
{7)824.00.03 - CALVA 1042 
69006 LYON 
ECO-INFORMATIQUE 
50, Cours Vuitton 
(7)82451.18 - CALVA 1066 
71000 MACON 
CLINIQUE ELECTRONIQUE 
369, Rue de Paris 
(85)38.20.84 - CALVA 1053 
72000 LE MANS 
AESCULAPPLE 

4, Rue de Richebourg 
(43)24.97.80 - CALVA 1067 
72000 LE MANS 

ASCI 

115, Rue Nationale 
(43)84.28.28 - CALVA 1095 
74000 SAINT GEVRIER 
SIGEA 

34, Avenue de la République 
(50)57.02.80 - CALVA 1043 
74102 ANNEMASSE 
D.S.A. MICRO 

15, Rue Adrien Ligue 
(50)38,31.40 - CALVA 1044 
75001 PARIS 

MICRO SUP 

6, Place Vendôme 
(1)260.67.15 - CALVA 1057 


75007 PARIS 
M.V.I 


27, Rue Vaneau 
(1)551.66.77 - CALVA 1062 
75008 PARIS 

A.M.E. 

172, Boulevard Haussman 
(1)562.9640 - CALVA 1059 


suite page suivante 


























75008 PARIS 

EUROPE 

COMPUTER SYSTEM 
16, Rue Washington 
CALVA 1092 

75008 PARIS 
L'ORDINATEUR 
INDIVIDUEL AFFAIRES 
30, Rue Cambacérès 
(1)742.91.00 - CALVA 1050 


75008 PARIS 

POINT MICRO 

16, Rue de la Boétie 
(13265.89.35 - CALVA 1019 
75008 PARIS 

S.I.V.E.A. 

13, Rue de Turin 

{13522.70.66 - CALVA 1052 
75009 PARIS 
COMPUTERLAND MOS 75 
8, Rue Bleue 

(1)824.65.80 - CALVA 1064 
75009 PARIS 

JCR ELECTRONIQUE 

58, Rue Notre Dame de Lorette 
(1)282.19.80 - CALVA 1078 
75009 PARIS 

L.P.S. BUREAU 

46, Rue Laffitte 

(1)878.2645 - CALVA 1007 


75010 PARIS 

SOFT MACHINE 

31, Bd de Magenta 

CALVA 1088 

75011 PARIS 

MICRO INFORMATIQUE 
DIFFUSION 

51bis, Av. de la République 
(1)357.83.20 - CALVA 1009 
75012 PARIS 
ELLIX 


7, Rue Michel-Chasles 
(1)307.60.81 - CALVA 1005 
75012 PARIS 

GESTION MICROS 

ET SERVICES 

212-214, Avenue Daumesnil 
(1)345.28.52 - CALVA 1068 
75015 PARIS 

ILLEL CENTER 
INFORMATIQUE 

143, Avenue Félix Faure 
(1554.97.48 - CALVA 1001 
75015 PARIS 
INFORMATIQUE 
ELECTRONIQUE FRANÇAISE 
228, Rue Lecourbe 
(1)828.06.01 - CALVA 1006 
75015 PARIS 

MICRO ASSISTANCE 
66, Rue Castagnary 
(1)530.05.28 - CALVA 1037 
75015 PARIS 

SIDEG 

170, Rue St Charles 
(13557.79.12 - CALVA 1013 
75016 PARIS 
MICRODATA 
INTERNATIONAL 

50, Rue Raynouard 
(1)525.81.64 - CALVA 1051 
75016 PARIS 

SOCIETE ANTIGONE 
12, Avenue Pierre ler de Serbie 
CALVA 1028 

75017 PARIS 

B.S.C. INFORMATIQUE 
39, Rue Cardinet 
(1)763.95.33 - CALVA 1117 
75017 PARIS 

K.A. 

6, Rue Darcet - CALVA 1027 





75017 PARIS 

NASA ELECTRONIQUE 

46, Avenue de la Grande Armée 
CALVA 1071 





SERVICE CALVADOS : 


Librairie. dépositaire de la documentation technique Cal- 





7547 PARIS 

SOCIETE GAMIC 

27, Rue Guersant 
(1)574.02.92 - CALVA 1131 


75017 PARIS 

RANDOM FRANCE 

75, Bd Pereire 
(13227.59.20 - CALVA 1126 


75017 PARIS 


APPLIQUEE 

4], Rue la Condamine 
CALVA 1065 

75018 PARIS 

B.L.P. L'INFORMATIQUE 
PERSONALISEE 

22, Rue Joseph Dijon 
(1)255.44.63 - CALVA 1070 
76000 ROUEN 

L'ESPACE TEMPS REEL 
9, Quai du Havre 
(35)89.29.11 - CALVA 1101 
76200 DIEPPE 
ELECTRODOM 

9, Rue Lemoyne 
{35)84.18.58 - CALVA 1002 








17, Avenue de Saint Cloud 
(3)021.30.15 - CALVA 1106 

78100 ST GERMAIN EN LAYE 
ORDI GESTION 

13, Rue Louviers 

(3)51.58.25 - CALVA 1109 


78117 CHATEAUFORT 
AVIRADIO 
Toussus-le-Noble 
(3)956.22.20 - CALVA 1127 




















80000 AMIENS 

PICARDIE 
MICRO-INFORMATIQUE 
6, Rue Allart 

(22)91,52.39 - CALVA 1022 











87000 LIMOGES 
MICROLIM 

81, Bd Gambetta 
(55)34.10.12 - CALVA 1118 


92086 PARIS-LA DEFENSE 
POINT:MICRO 

Tour Neptune - CALVA 1023 
92100 BOULOGNE 
MINIGRAPHE 
MICRO-INFORMATIQUE 
263, Bd Jean Jaurès 
{1)608.4431 - CALVA 1034 


95200 SARCELLES Z.I. 
MICROKEY 95 

34, Rue de l'Escouvrier 
(3)419.04.24 - CALVA 1124 

95526 CERGY-PONTOISE Cüx 
ORGAMATIQUE 

9, Chaussée J. César - B.P. 304 
(3)030.37.85 - CALVA 1021 


97200 MARTINIQUE 
MICRO-TRAITEMENT 
Centre Commercial Dillon 

Fort de France 

(596)73.91,45 - CALVA 109% 
97400 LA REUNION 

MICRO SYSTEMES SERVICE 
74, Rue Labourdonnais 

CALVA 1102 
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Saisie multipage en Pascal 


Cette procédure Pascal permet de 
saisir et de modifier un tableau de 
chiffres avec le nombre de lignes et 
de colonnes et tous les libellés hori- 
zontaux et verticaux que l'on désire. 
Cette saisie peut s'intégrer à n’im- 
porte quel programme susceptible 
d'en tirer profit (statistiques, ges- 
tion...), soit généralement toute appli- 
cation similaire à Visicalc, mais récla- 
mant un traitement précis 
(régression, analyse factorielle, calcul 
matriciel, saisies de mouvements de 
stock...). 


Le processus de saisie/modification 
ressemble à celui de Visicalc. On dé- 
place le curseur d’une case à une 
autre dans les quatre directions et 
l'écran est une fenêtre qui suit le cur- 
seur sur le tableau. Les flèches” 
permettent le déplacement et la barre 
d'espacement sert de bascule entre le 
sens vertical et le sens horizontal. 
Toutefois, contrairement à Visicalc, la 
fenêtre passe brutalement” d’une 
page à une autre. 


Intégration 
à d’autres programmes 


Pour la réaliser, il suffit de changer 
les CONST MAXLIGTB (nombre de 
lignes) et MAXCOLTB (nombre de 
colonnes) en tête de programme et 
de modifier éventuellement le type 
des nombres du tableau TAB. Les 
paramètres à fournir pour l'appel de 
la saisie sont : 


Nombre maximum de colonnes : 
MAXCOL (inférieur ou égal à MAX- 
COLTB) 


Nombre maximum de lignes : MAX- 
LIG (inférieur ou égal à MAXLIGTB) 


Nombre de colonnes par page: 
PASCOL 


Nombre de lignes par page : PASLIG 
Largeur des libellés verticaux : LAR- 
LIBV 


Largeur des colonnes : LARGCOL 
Tableau des libellés horizontaux : LH 
Tableau des libellés verticaux : LV 


Tableau d’entiers (long integer) : TB 
(à saisir et modifier). N'oubliez pas 
de remettre ce tableau à zéro en cas 
de premier remplissage, ce que fait 
INIT dans mon programme. 
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À noter qu'il faut que MAXCOL soit 
un multiple de PASCOL et MAXLIG 
un multiple de PASLIG. 


Remarques sur les 
procédures habituelles 


J'ai utilisé les procédures habituelles 
déjà publiées par Pom's, auxquelles 
j'ai ajouté : 


e PROCEDURE EXP10(P:INTEGER; 
VAR RES:INT); 


Retourne RES qui a pour valeur 10 à 
la puissance P. 


e PROCEDURE VALI(S:STRING;VAR 
VALEUR:INT); 


Transforme une chaîne en un nom- 
bre entier (même fonction que le 
VAL de l’Applesoft). Attention, il n’y 
a pas de contrôle sur l'appartenance 
de C à [0.:9]. 


J'aurais préféré utiliser des fonctions 
à la place de ces deux procédures, 


ERGUN - 
Sortie par GRAFTEXT (p. 7) 


Mode Inverse 


, HIHI 





à HNENENESNIL:, 


FRRS ARR NONNNONNANRMRNRRRRNNANINANRNNNNNNONSNNNTNANNSERTRNENSNENTRENANANDNENTRERIANNANAINENNER 


ÉPTPP PP PTS PPT PT PET PISTE ETEDEDESELES DEEE LITE DLL LEON UN DUEN UE MERE EL 


NE SRE SEE PSS EEN TEE EE EN NE MMPRERE ATEN 
PR ARE EEE IEEE 


POPOPPPEPAENENNNENNNTNENE 


LLIXXNXE 
I 1,:+ 
1, +1}+bte 
LEMNHHee 
HD 
LOOITIS TINTIN 
EPP EMNENENNNNENENENNE PME PENSE 
EDPPPOEREENETENENEN PEER 
DATENT TEEN ENENNEPENMMENNNENNNURE 
EP CTLPOPT OPEN NNPOPEPENNPPNENENNENNNENENTS 


Éitiiiiiihlilllill; TI SER 


SES AMANHENNNENMEMENNNNEN :. 


I 

I 

I 

1 

1 

1 

i 
HHHHHHNHNET 
MRSMEMMEREAENX XII, 


MH 


Michel Lafon 


mais elles m'ont refusé des INTE- 
GER [N] comme résultat. 


e PROCEDURE EMPILE(C:CHAR; 
VAR S:STRING); 


Empile le caractère C dans la chaîne 
S. 


e PROCEDURE SWITCH(VAR S: 
BOOLEAN); 


Met S à ”true” si S est ”’false” et ré- 
ciproquement. 


Description des 
différentes procédures 


PRINTVERT : affiche < ou A sui- 
vant que les flèches assurent un dé- 
placement horizontal ou vertical. 


SAISINT(LMAX:INTEGER, VAR N: 
INTEGER;VAR CAR:CHAR) : fait la 
saisie d'un entier et contrôle qu’il ne 
dépasse pas la largeur des colonnes. 
Retourne cet entier (N) et CAR qui 
contient la touche tapée après le 
nombre (flèches, espace, ou F). 


SAISIPAGE(PREMCOL,DERCOL, 
PREMLIG,DERLIG:INTEGER) : pro- 
cède à la saisie de la page commen- 
çant à la colonne PREMCOL, ligne 
PREMLIG, et finissant à la colonne 
DERCOL, ligne DERLIG. Cette pro- 
cédure appelle successivement 
SAÛUTE et SAISINT. On en sort si 
l'on touche un bord ou si l’on appuie 
sur F. 


CADRE : affiche le cadre de saisie et 
ses libellés horizontaux et verticaux. 


SAUTE : aiguille sur BAS, HAUT, 
GAUCHE, DROITE. Bascule égale- 
ment VERT si on a appuvé sur ’es- 
pace”. 


BAS,HAUT,GAUCHE, DROITE : mo- 
difient X et Y, paramètres utilisés 
dans SAISIPAGE pour positionner le 
curseur, ainsi que les numéros de 
lignes et de colonnes (NL et NC). 


PAGEGAUCHE à PAGEBAS : modi- 
fient les paramètres PREMLIG, DER- 
LIG, PREMCOL et DERCOL. Infor- 
ment également si l’on a touché l’un 
des bords du tableau (BORD est mis 
à true”). 


CORPS SAISIMULTIPAGE : appelle 
les autres - procédures jusqu'à ce 
qu'on ait appuyé sur F. 














CHHEMERER ES NUM NN ANNEE R ANR ER LÉ R RUN ÈU NUE UN N UNE RER LÉUELLRR NU NE ) 


Cx SAISIE MULTIPAGE EN PASCAL (TYPE VISICALC) #*) 
Cx MICHEL LAFON LE 7/02/1983 *) 
Cæ : #) 
(» #*) 


Came me ee DE DE DE DEN NH HE HE DH DE DE DE DE DR DR DE DE DE DE DE AUDE DE DDR D DE D DE D DD D DE DE DE D DE 6 8 DE DE DE D D 2 8 DE 28 06 8 26 26 26 6 28 2€ ) 


CONST MAXLIGTB =40;(C* MODIFIER EVENTUELLEMENT SI L’ON VEUT TRAVAILLER *) 
MAXCOLTB =40;(x SUR UN TABLEAU PLUS GRAND *) 
TYPE CHOIDECA =SET OF CHAR; C*TYPES DE/DES: *) 
INT =INTEGER(10]; C* NB DU TABLEAU *) 
TAB =ARRAY[(1..MAXLIGTB,1..MAXCOLTB] OF INT:(»* TABLEAU A SAIS/MODIF x) 
STR1O =STRING(I10]; C* 1 LIBELLE *) 
LIBHOR =ARRAY[(1..MAXCOLTB] CF STR10: (* LIBELLES HORIS. #) 
LIBVER =ARRAY(1..MAXLIGTB] OF STR10: Cx Fe VERTIC. *) 
DIRECTION =(CVHAUT,VBAS, VGAUCHE, VDROITE, NEANT ) : 
VAR NOM :STRING: 
COM,HOME,BS,EOL,SON,FS,SP,INV,NORM,CR:CHAR: 
BONSET : CHOIDECA; 
LBH : LIBHOR: 
LBV : LIBVER: 
TB : TAB: 
1,9 :INTEGER; (* COMPTEURS DE BOUCLE*) 


CDD D DD DEN DE DEN D DE DE DE DE DE DE D D 2 DE DE DE D DE DD DE DE D DE DE DE D DD D DE D D DE D DE DE D D 96 DE D DE DE 8 DE D € 96 6 26 6 2€ 26 06 06 6 6 


C* PROCEDURES HABITUELLES COURANTES *) 


CHR N NOMME DE DD DE D DE HE HE DE D DE DD DE DE DE DEN DD 2 9H D DE DD DE DE DE D DD D DE D DE DE D DE D 06 0 D D DE 98 26 DE DE 06 DE 26 26 08 26 28 08 08 28 


PROCEDURE MESSAGE(X:INTEGER:;S:STRING): 
BEGIN GOTOXY(O,X) ; WRITE(S,EOL) END: 


PROCEDURE PRENRETURN: 
VAR SORT: CHAR: 
BEGIN REPEAT READ(KEYBOARD,SORT): UNTIL EOLNCKEYBOARD) END: 


FUNCTION PRENCAR(BONSET:CHOIDECA) : CHAR: 
VAR CH:CHAR: 
BON : BOOLEAN : 
BEGIN 
REPEAT 
READ(KEYBOARD,CH); IF EOLN(KEYBOARD) THEN CH:=CR: BON:=CH IN BONSET: 
IF NOT BON THEN WRITE(C(CHR(7)) ELSE IF CH INC’ ’..’"*] THEN WRITE (CH): 
UNTIL BON: 
PRENCAR : =CH 
END: 





SRRETEGE 


eo | 
& 
* 
# 
sis 
» 
a # 
4 
pe”) 


PROCEDURE PRENCHAINE (LONGMAX : INTEGER ; BONSET : CHOIDECA:VAR S:STRING);: 
VAR S1 :STRING[I1]1: 
CONT:STRING: 
BEGIN 
S1:=’ ’;: CONT:=’": 
REPEAT 
IF LENGTHÇ(CONT)=0 THEN S111]:=PRENCAR(BONSET) 
ELSE IF LENGTH(CONT)=LONGMAX THEN S111]1:=PRENCAR(ICR,CHR(8)1]) 
ELSE S111]:=PRENCAR(BONSET+[CR,CHR(8)]): 
IF S1(1] IN BONSET THEN CONT:=CONCAT(CONT,S1) ELSE IF S1(1]1-CHR(&) THEN 
BEGIN WRITE(BS,’ ’,BS): DELETECCONT,LENGTH(CCONT) ,1) END: 
UNTIL S1[(1])=CR: 
S:=CONT 
END: 


FUNCTION OUI :BOOLEAN: 
BEGIN OUI:=PRENCAR((’0’,’N°’]1) IN [’0°] END: 


FUNCTION SELECT(X:INTEGER;S:STRING:BON:CHOIDECA) : CHAR: 


ER RREER 
acc 
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BEGIN MESSAGE(X,S) ; SELECT :=PRENCARCBON) END; 


PROCEDURE EXP1O(P:INTEGER; VAR RES: INT); 
VAR N:INT; 
BEGIN N:=1; IF P<>O THEN BEGIN FOR I:=1 TO P DO N:=N*10 END; RES:=N END; 


PROCEDURE VAL(S:STRING; VAR VALEUR: INT); 
VAR E10, N,V :INT; 


C : CHAR: 
I :INTEGER: 
BEGIN 
N:=0: 


FOR 1:=1 TO LENGTH(S) DO 
BEGIN C:=S{I1: EXP1O(LENGTH(S)-1,E10): :=(ORD(C)-48)#E10: N:=N+V: END: 
VALEUR:=N: 
END: 


PROCEDURE EMPILE(C:CHAR; VAR S:STRING) ; 
VAR AS,NS :STRING; 
BEGIN AS:=S; NS:=CONCAT(S,’ ’); NS(ILENGTH{S)+#1]:=C; S:=NS; END; 


PROCEDURE SWITCH(CVAR S:BOOLEAN) ; 
BEGIN IF S THEN S:=FALSE ELSE S:=TRUE END; 


C2 26 26 08 06 96 26 26 26 06 DD DE 6 DE 26 DE DE D 6 DE DE DE DE D DE DE 26 DE DE DE DE DE D DD DD DE DE DE DE D DE DE D D DE DE DE D 6 DE DE DE D DE DE HE DE DE DE D DE DE DE DE DE DE 26 26 6 € ) 


C* INITIALISATIONS *) 


Cm 0 2 06 06 06 0 06 28 DE D DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE D D DE DE DE DE DE DE D D DE DE DE D DE D DE DE EE DE D DU DE DE DE DE D D DE DE DEEE D DE 2 DE DE 78 8 2 ) 


PROCEDURE INIT; 


RRNTIITEESE 


BEGIN Fi 
HOME : =CHR(27) ; EOL : =CHR(29) : BS:=CHR(8) ; SON: =CHR(7) ; INV: =CHR(20) ; NORM: =CHR(20) ; | 
CR:=CHR(13): FS:=CHR(21); SP:=’ ’; BONSET :=(/0’..°9°,FS,BS,SP,’F°); #3 
WRITELN (’PATIENCE ,R.A.Z DU TABLEAU”); ls 


FOR I:=1 TO MAXLIGTB DO FOR J:=1 TO MAXCOLTB DO TB[I,J1:=0; 
END: 


CHU NE 0 2 6 D 26 DE D 6 36 36 6 DE DE D DE 6 06 D D DE DE D 6 6 D D 6 06 DE DE DE DE D DE 36 36 D 6 6 6 6 6 26 36 6 6 36 DE DE DE 36 D DE 26 DE DE DE DE DE DE DE DE D € 26 06 6 6 € ) 


(#* 
[] 
(x 


SAISIMULTIPAGE 


#*) 
#) 
#) 


CRM 0 00 0 26 06 26 D D 8 36 3 36 6 D D DE DE DE DE DE DE 36 DE DE D JE DE DE 96 DE DE D 06 JE DE D EE JE D 6 DE D 2 JE DE D DE DE 26 26 DE 6 DE DE DE 96 26 26 26 96 96 96 2€ 26 26 6 26 0 6 ) 


(* MAXCOL : NOMBRE MAXI DE COLONNES DU TABLEAU *) 
(* MAXLIG : NOMBRE MAXI DE LIGNES DU TABLEAU *) 
(# PASCOL : NOMBRE DE COLONNES PAR PAGE *) 
(* PASLIG : NOMBRE DE LIGNES PAR PAGE *) 
(* LARLIBV : LARGEUR DES LIBELLES VERTICAUX *) 
(* LARGCOL : LARGEUR DES COLONNES *) 
Cx LH : TABLEAU CONTENANT LES LIBELLES HORIZONTAUX *) 
Cx LV : TABLEAU CONTENANT LES LIBELLES VERTICAUX *) 
Cx TB : TABLEAU D‘ENTIER À SAISIR/MODIFIER *) 
(a *) 
(* ATTENTION: RESPECTER LA COHERENCE DES PARAMETRES *) 
(a (EX AUTANT DE LIBELLES HOR QUE DE COLONNES *) 
Cæ MAXCOL MULTIPLE DE PASCOL *) 
x MAXCOL MULTIPLE DE PASLIG *) 


PROCEDURE SAISIMULTIPAGE(MAXCOL,MAXLIG,PASCOL,PASLIG,LARLIBV, LARGCOL : INTEGER; 
LH:LIBHOR;:;LV:LIBVER; VAR TB:TAB): 


VAR TOUCHE : DIRECTION: 
C : CHAR; 
PREMCOL , DERCOL , PREMLIG, DERLIG : INTEGER; 
BORD, VERT : BOOLEAN; 


PROCEDURE PRINTVERT; 
BEGIN GOTOXY(39,0); IF VERT THEN WRITE(’”"’) ELSE WRITE(’>’) END; 


PROCEDURE SAISINT(LMAX:INTEGER; VAR N:INT;VAR CAR:CHAR); 
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VAR CHAINE :STRING: 
LONG : INTEGER: 
BEGIN 
LONG:=0; CAR:=PRENCAR(BONSET) : 
IF NOT (CAR IN [’0’..°9’]) THEN EXIT(SAISINT) ELSE 
BEGIN 
CHAINE:=’": 
WHILE (CAR IN [’0’../9’]) AND (LONG<LMAX) DO 
BEGIN 
LONG : =LONG+1 : 
IF LONG=LMAX THEN BEGIN N:=0; WRITE(SON);.EXIT(SAISINT): END: 
EMPILE(CAR,CHAINE) : CAR : =PRENCAR (BONSET) : 
END: 
VAL (CHAINE, N): 
END: 
END; 


PROCEDURE SAISIPAGE(PREMCOL,DERCOL, PREMLIG, DERLIG:INTEGER) : 
VAR NUL,NUC :INTEGER: 
X,Y : INTEGER; 


PROCEDURE CADRE: 
VAR I:INTEGER: 


BEGIN 
a PAGE(OUTPUT); MESSAGE(O,’->,<-,SP,0..9, F POUR FINIR’): 
“4 PRINTVERT; GOTOXY(LARLIBV, 2): 
r: FOR I:=PREMCOL TO DERCOL DO WRITE(LHII]:LARGCOL); GOTOXY(O, 3): 
# FOR 1:=1 TO LARGCOL»(DERCOL-PREMCOL+1)+LARLIBV+1 DO WRITE(’-’); WRITELN: 
És FOR I:=PREMLIG TO DERLIG DO 
in BEGIN 
EE WRITE(LVCIJ:LARLIBV):WRITE(/I’): 
is FOR J:=PREMCOL TO DERCOL DO 
É BEGIN WRITECTB(I,J]:LARGCOL-1);WRITE(’:/); END: 
# WRITELN ; 
# END: 
É = FOR 1:=1 TO LARGCOL*(DERCOL-PREMCOL+1)+LARLIBV+1 DO WRITE(’-’): 
END: 


PROCEDURE SAUTE: 


PROCEDURE BAS: 

BEGIN 
IF NUL=DERLIG THEN BEGIN TOUCHE:=VBAS;EXIT(BAS) END: 
Yi=Y+1;: NUL:=NUL+1 

END: 


PROCEDURE HAUT: 

BEGIN 
IF NUL=PREMLIG THEN BEGIN TOUCHE:=VHAUT;EXIT(HAUT) END: 
Y:=Y-1; NUL:=NUL-1: 

END: 


PROCEDURE GAUCHE: 
BEGIN 
4 NUC=PREMCOL THEN BEGIN TOUCHE:=VGAUCHE:EXIT(GAUCHE) END; 
=X-LARGCOL; NUC:=NUC-1: 
END; 


PROCEDURE DROITE: 

BEGIN 
IF NUC=DERCOL THEN BEGIN TOUCHE:=VDROITE:EXIT(DROITE) END; 
X:=X+LARGCOL; NUC:=NUC+1: 

END; 


BEGIN 
IF CC=’F’) OR (C IN [’0’..°9’]) THEN EXIT(SAUTE): 
IF C=SP THEN BEGIN SWITCH (VERT) ; PRINTVERT; EXIT(SAUTE) END: 
IF VERT THEN IF C=BS THEN HAUT ELSE BAS 


A EN RSENUES 
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ELSE IF C=BS THEN GAUCHE ELSE DROITE: 


END; 
BEGIN (»*x CORPS DE SAISIPAGE *) 
X:=LARLIBV+1;: :=4: NUL:=PREMLIG: NUC:=PREMCOL: 
IF NOT BORD THEN CADRE: 
REPEAT 


TOUCHE:=NEANT; GOTOXY(X,Y): SAISINT(LARGCOL,TB[INUL,NUCI,C): 
GOTOXY(X,Y): WRITE(TB[INUL, NUC] :LARGCOL-1) :WRITE(’:”’3): GOTOXY(X,Y): SAUTE: 
UNTIL C(TOUCHE<>NEANT) OR (C=’F’) 
END: 


PROCEDURE PAGEGAUCHE: 
BEGIN 
IF PREMCOL=1 THEN BEGIN BORD:=TRUE; WRITE(SON): EXIT(PAGEGAUCHE) END 
ELSE BEGIN PREMCOL:=PREMCOL-PASCOL: DERCOL :=PREMCOL+PASCOL-1 END: 
END; 


PROCEDURE PAGEDROITE:; 
BEGIN 
IF DERCOL=MAXCOL THEN BEGIN BORD:=TRUE; WRITE(SON); EXIT CPAGEDROITE); END 
ELSE BEGIN PREMCOL:=PREMCOL+PASCOL; DERCOL:=PREMCOL+PASCOL-1; END: 


END: 
PROCEDURE PAGEHAUT : s4 
BEGIN ë 
IF PREMLIG=1 THEN BEGIN BORD:=TRUE; WRITE(SON):; EXIT(PAGEHAUT):; END Fe 
ELSE BEGIN PREMLIG:=PREMLIG-PASLIG: DERLIG:=PREMLIG+PASLIG-1 END: “ 

END: ë 


PROCEDURE PAGEBAS; EN 
BEGIN k 

IF DERLIG=MAXLIG THEN BEGIN BORD:=TRUE; WRITE(SON); EXIT(PAGEBAS): END 
ELSE BEGIN PREMLIG:=PREMLIG+PASLIG: DERLIG:=PREMLIG+PASLIG-1; END: 


END; 


» HI ræp 
SPAS QE RE 


BEGIN (x CORPS SAISIMULTIPAGE *) 
PREMCOL:-=1; DERCOL:=PREMCOL+PASCOL-1; PREMLIG:=1; DERLIG:=PREMLIG+PASLIG-1; 
VERT : =FALSE: 
REPEAT 
SAISIPAGE(PREMCOL, DERCOL, PREMLIG,DERLIG); BORD:=FALSE: 
CASE TOUCHE OF 
VGAUCHE :PAGEGAUCHE: VDROITE :PAGEDROITE; 
VBAS :PAGEBAS: VHAUT : PAGEHAUT 
END: 
UNTIL C=’F’;: 
END: 


C0 2 2 26 2 2 2 D 26 26 26 26 DE DE DE DE 8 96 DE D DE DE DE D DE D 6 D D D DE 6 DE 6 DE D DE 2 DE DE DE DE DE D DE D DE DE DE DE ME 2 DE DE DE D DE 96 DE 9 96 36 96 26 36 De 6 De JE 36 JE 36 6 6 


Cx PROGRAMME PRINCIPAL #) 


CR HR DD DE 2 6 26 96 96 DE D DE DE DE DE DE DE DE DE DE DE DE DE DE DE 6 D DE DE DE DE DE DE DE DE DE DE DE D DE D 6 96 6 D DE D DE D D 2 D DE DE JE 36 JE JE 38 M6 36 Je 9 Je 96 26 26 06 98 2 2 ) 


BEGIN 
FOR 1I:=1 TO MAXCOLTB DO STR(I,LBH(I]1); FOR I:=1 TO MAXLIGTB DO STR(I,LBVIII); 
(* PREMIER ESSAI *) PAGECOUTPUT); WRITELN(’PREMIER ESSAI’); INIT: 
SAISIMULTIPAGE(1S5,20,5,10,2,4,LBH,LBV,TB); 
C* DEUXIEME ESSAT *) PAGECOUTPUT); WRITELNC’DEUXIEME ESSAI’); INIT; 
SAISIMULTIPAGE(S,38,3,19,4,10,LBH,LBV,TB); 

END. 


nes 
TÉNSSENESS EN 
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Fondu enchaîné 


Th. Charlier de Chily 


Particulièrement porté sur les applica- 
tions graphiques de l'Apple, je me 
suis penché avec délectation sur le 
programme de Fondu Enchaîné pro- 
posé par Denis Sureau dans le 
Pom's 7. Je dois toutefois lui faire un 
petit reproche sur le plan du vocabu- 
laire, en ce sens que les opérations 
qu'il effectue ne me semblent pas ré- 
pondre à la définition exacte du 
fondu enchaîné” qui consiste, selon 
le Petit Larousse, en l'apparition en 
fondu d’une image avec disparition 
de la précédente. 


En fait, le programme en question 
réalise surtout un transfert rapide 
d’une page graphique à l’autre. 


Partant de cette constatation, je vous 
présente ci-après une petite routine 
en assembleur qui respecte un peu 
plus le sens des mots. 


Si vous avez chargé un graphique 
dans la page 1 et un autre dans la 
page 2, il suffit de faire CALL 768 
pour en lancer l’exécution. 


La première partie de ce programme 
peut être utilisée afin de superposer 
deux images graphiques et, si le 
transfert se fait dans cette version de 
base de la page 2 vers la page 1, il 
est à noter que les modifications sui- 
vantes permettraient de faire l'in- 
verse : 


Ligne 51 INIT LDA #$40 
Ligne 53 LDA #$20 
Ligne 56 LDX #$60 





Programme Fondu Enchaîné 


1 ORG $30û 

2 DPBYTE EQU $6 

3 ARBYTE EQU $8 

4 COMPTEUR EGU #18 

à # 

6 *#INITIALISATION DES DOINTEURS 
7% 


8 LDA #$0 

9 STA DPBYTE 
10 STA ARBYTE 
11 JSR INIT 


12 HARRIS 
13 #SUPERPOSITION* 
14# 1+2-)1 +« 
LS HAE 
16 BCLSUP  LDA (DPRYTE),Y 


17 ORA  (ARBYTE),Y 
18 STA  (ARBYTE),Y 
19 LDA #$0 

20 STA  COMPTEUR 
21 LDA #10 

22 LOUPI INC COMPTEUR 
25 CMP  COMPTEUR 
24 BNE LOOPi 

25 INY 

26 BNE  BCLSUP 

27 INC ARBYTE+$1 
28 INC DPBYTE+#$i 
29 CPX ARBYTE+$1 
30 BNE BCLSUP 

3i JSR INIT 


32 HHHHHBHHHHHHH 
33 # TRANSFERT x 
4 # 2-)i # 
3S HE 
36 BCLTRA LDA (DPRYTE),Y 
37 STA  (ARBYTE} ,Y 


nas 


38 LDA #$0 

39 STA  COMPTEUR 
40 LDA #10 

&i LOOP2 INC COMPTEUR 
42 CMP  COMPTEUR 
43 BNE  LOOP2 
&h INY 

45 BNE BCLTRA 
46 INC ARBYTE+$: 
47 INC DPBYTE+$: 
48 CPX ARBYTE+$: 
43 BNE BCLTRA 
90 RTS 

gi INIT LDA #$20 

52 STA ARBYTE+#: 
33 LDA #$40 

4 STA DPBYTE+$! 
55 LDY #$0 

% LDX ##40 

57 RTS 

58 FIN 
Récapitulation 


#300. 351 


0500- A3 00 85 06 85 08 20 45 
0308- 03 Bi 06 ii 08 91 08 A3 
0310- 00 85 18 A9 OA EG {8 C5 
0318- 18 DO FA C8 D0 EB E6 09 
0520- EB 07 E4 09 DO E3 20 45 
0328- 03 Bt 06 91 08 A3 00 BE 
0330- 18 A9 OA EB 18 C5 18 DO 
0338- FA CB DO ED E6 09 EE 07 
0340- E4 09 D0 ES 60 A9 20 85 
0348- 09 A9 40 85 07 AO @ A2 
0350- 40 60 


EESÉAERE 14 HE 
LES te M do se: 





Modification de la 
touche SHIFT 


De nombreux programmes offrent la 
possibilité d'utiliser la ‘modification 
de la touche SHIFT” pour obtenir 
par soft les minuscules au clavier : 
c'est le cas en particulier d'Applewri- 
ter Il et du moniteur étendu de 
Thierry Le Tallec (Pom’s 8). Pour 
réaliser cette modification , il suffit 
tout simplement de relier à l’aide 
d’un fil la patte du bouton 2 de la 
broche des manettes de jeu à une 
petite barre verticale située derrière le 






clavier (la deuxième à partir de la 
droite). 
N AN? 
ses 
+ Frrose 
— AN, PB? 
ANI 84 
AN Bs 
NC +SY 
Connecteur 
Manette 
de Jeu 
Clavier 


Bien entendu, pour pouvoir voir les 
minuscules, il faut disposer d’une 
ROM génératrice de caractères en 
minuscule, ou utiliser un programme 
comme Applewriter Il qui affiche les 
majuscules en inverse. 


La barre est reliée dans le clavier à la 
touche SHIFT, qui est ainsi connec- 
tée au bouton 2. Il suffit pour un 
programme de lire l'adresse corres- 
pondante pour voir si la touche 
SHIFT est enfoncée, et agir en 
conséquence. 
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Gestion de fichiers avec RWTS 


Ce n’est un secret pour personne : le 
DOS de l'Apple IT n'est pas des plus 
rapides, notamment lorsqu'il lui faut 
gérer des fichiers de données. Par- 
tant de cette constatation, certains 
ont conçu, réalisé et commercialisé 
des systèmes DOS complets, destinés 
à remplacer ou relayer le système 
standard. 


Cet article ne se propose pas de 
vous donner un tel système (un nu- 
méro spécial de Pom’s n’y suffirait 
pas, sans parler des heures de travail 
que cela supposerait..). En fait, il 
s'inscrit dans le prolongement des ar- 
ticles déjà publiés sur le thème des 
fichiers, pour illustrer cette fois une 
méthode de gestion de table d’index 
par programme assembleur et l’accès 
direct” aux disquettes par RWTS. 


Le système s'applique à la gestion 
d'un gros fichier de données (placé 
dans le drive 2) qui se suffit à lui 
même (fichier d'adresses pour mai- 
ling, par exemple), ou qui inter-agit 
avec d’autres fichiers plus petits 
(placés sur une disquette en drive 1), 
a quant à eux par le DOS stan- 
ard. 


L'implantation en mémoire des routi- 
nes, tables et buffers est conçue pour 
48K de mémoire centrale (la sectori- 
sation est celle du DOS 3.3). 


La table d’index 


Rappelons qu’un élément de la table 
d'index se compose d’une clé, qui 
identifie chaque enregistrement du fi- 
chier de données, et de l’adresse de 
cet enregistrement sur la disquette. 
L'adresse est codée en deux octets, 
mais nous y reviendrons plus en dé- 
tail ultérieurement. 


La table est gérée par un programme 
en assembleur et se présente sous la 
forme d’un tableau en mémoire cen- 
trale, ou plus exactement d’une suc- 
cession de blocs de 256 octets cha- 
cun. Pour simplifier les choses (qui 
ne seront donc pas optimales...), 
l'adresse de début du premier de ces 
blocs doit être un multiple de 256. 
Soit PO cette adresse en décimal 
{pour le BASIC), elle se compose en 
hexadécimal d’un octet haut 
(HB=P0/256) et d’un octet bas tou- 
jours égal à 0. 


Si LC est la longueur de la clé, non 
compris les deux octets de l’adresse- 
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disquette, on peut mettre NC clés 
dans un bloc de 256 octets, avec 
NC=INT(256/LC2). 


Dans un bloc donné, l’octet bas de 
l'adresse du premier caractère de la 
dernière clé que l’on peut y stocker 
est O0=(NC-1)*x(LC+2); loctet 
haut de cette adresse correspond à 
HB pour le premier bloc, HB+1 
pour le second... 


Dans les deux premiers octets avant 
PO, on stocke le nombre d'éléments 
qui se trouvent dans la table, soit 
NZ=PEEK(PO-2)x256+PEEK(P0-—1). 


L'adresse du premier caractère de la 
dernière clé de la table peut se calcu- 
ler de la façon suivante (HM=octet 
haut et LM=octet bas) : 


NB=nombre de blocs utilisés pour 
stocker les NZ clés =INT(NZ/NC) 


e Si NZ<>NCxNB : 
HM=HB+NB 
LM=((NZ-NBxNC)-1}x(LC+2) 
e Si NZ=NC+NB : 
HM=HB+NB-1 
LM=00 


Pour la suite, baptisons AMAX= 
HMx256+LM cette adresse. 


Principe de recherche 
dans la table 


Une fois entrée la clé recherchée (au 
clavier, ou à partir d’un autre fichier), 
on la stocke dans une zone de travail 
commençant en $311. Ensuite, on la 
compare à la dernière clé de chacun 
des blocs utilisés, jusqu’à ce qu’on 
trouve, si possible, celui dans lequel 
elle pourrait se situer (le premier 
pour lequel elle est inférieure ou 
égale à la dernière clé stockée). On 
explore alors ce bloc à partir de la 
première clé qu’il contient, pour voir 
si la clé recherchée s’y trouve. Dans 
tous les cas, la routine mettra en $1F 
le résultat de sa recherche (0 si la clé 
n'existe pas et 1 dans le cas 
contraire) et rangera dans $1C et 
$1D l'adresse, virtuelle ou réelle, de 
la clé recherchée dans la table. 


Cette méthode suppose que les clés 
soient classées dans l’ordre alphanu- 
mérique. Ainsi, une autre partie de la 
routine assure le décalage de la 
table, en cas de création d’une nou- 
velle clé dont l'adresse virtuelle est 
inférieure ou égale à AMAX (en 
d’autres termes, lorsque la nouvelle 
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clé ne vient pas en extrême fin de la 
table). 


De même, en cas d'annulation d’une 
clé qui ne serait pas la dernière de la 
table, une troisième sous-routine as- 
sure le décalage ‘vers le bas” et 
l'écrasement de la clé concernée. 


Remarques pratiques 


Le programme BASIC listé ci-après 
donne un exemple d'utilisation pour 
une table comportant 500 clés de 9 
caractères. L'adresse PO est calculée 
comme suit : 


- NC=INT(256/11)=23 


- Il faut donc 22 blocs pour contenir 
les 500 clés, soit 5632 octets, plus 
deux pour stocker NZ, arrondissons à 
5640 octets. 


- Le dernier buffer de la gestion du 
fichier (voir plus loin) commençant à 
35207, on a HB=INT((35207—-5640)/ 
256)=115, et PO=115x256—29440. 


L’initialisation de cette table (avant 
tout traitement) se fait donc par : 


POKE 29438,0:POKE 29439,0: 
BSAVE TABLE A29438,L5640,D1 
(on la place sur la même disquette 
que les programmes, en D1). 


Le chargement de la table en mé- 
moire à partir des programmes se 
fera ensuite par BLOAD. 


Le fait de disposer d’une table utilisa- 
ble sous forme d’un tableau gérable 
en assembleur présente de nom- 
breux avantages : 


- BLOAD et BSAVE sont beaucoup 
plus rapides que la lecture ou l’écri- 
ture d’un fichier TEXT dans lequel 
seraient stockées les clés. 


- En mémoire centrale, vous n’avez 
plus à créer un tableau de variables 
alphanumériques pour stocker les 
clés. Vous économisez ainsi : 


e 3 octets par élément de la table 
(liés au traitement des tableaux 
par BASIC) 


e les problèmes de ‘’garbage” liés à 
la gestion d’un grand tableau dont 
les valeurs changent souvent, lors 
des décalages de la table notam- 
ment. 


- Si votre programme est interrompu 
(par RESET par exemple) vous pou- 
vez toujours sauver votre table par 


FFAS 
LS 


F3 


TRE 
L 2 272" 


= 
be 


gg Le 
à 4 


: 


FLE 
Re 4% 














a 


48 


BSAVE, alors que vous ne pourriez 
ps sauver un tableau par PRINT 
D$... 


La gestion du fichier de 
données 


Principes généraux 


On utilise la routine RWTS, qui per- 
met de lire ou d'écrire directement 
un secteur (soit 256 octets) sur la dis- 
quette. 


Revenons tout d’abord à l'adresse 
des enregistrements évoquée plus 
haut. Elle est codée sur deux octets, 
avec : 


® octet l': piste physique sur la dis- 
quette (P) 


e octet 2: 4 bits de droite = sec- 
teur physique (S) 


: 4 bits de gauche = posi- 
tion de l'enregistrement 
dans le secteur (PO). 


Ainsi, pour lire un enregistrement, 
par exemple, on découpe le 
deuxième octet de l'adresse stockée 
dans la table d’index, on va lire le 
secteur S de la piste P dans un buf- 
fer, et l’on sait alors que les données 
de l'enregistrement concerné com- 
mencent en PO dans ce buffer. En 
fait, les positions étant comptées à 
partir de 0 et si LE est la longueur de 
l'enregistrement, le premier com- 
mence en 0, le second en LE, le troi- 
sième en 2xLE... Tout dépend bien 
sûr de LE et l’on voit bien que, dans 
le système présenté ici, la longueur 
de l'enregistrement ne doit pas dé- 
passer 256 caractères (c'est un 
exemple simplifié, ne l’oublions 
pas...) 


Il est certain également que l’effica-. 


cité de l'occupation de la disquette 
dépend du rapport entre LE et 256 : 
si vos enregistrements font 130 ca- 
ractères, vous ne pouvez en mettre 
qu'un par secteur, et perdez ainsi 
presque la moitié de la capacité de 
stockage. Autant dire qu'il vaut 
mieux s'arranger pour n'avoir que 
128 caractères par enregistrement au 
lieu de 130! 


La disquette “Fichier” n’est pas ini- 
tialisée selon la procédure standard 
(voir le programme INIT ci-après). 
On utilise la commande de forma- 
tage de RWTS (Cf Manuel DOS 3.3) 
et l’on écrit ensuite sur le secteur 0 
de la piste O les informations néces- 
saires à la gestion du fichier. A partir 
du secteur 1 de la piste O jusqu’au 
secteur 15 de la piste 34, tous les 


secteurs sont disponibles pour vos 
enregistrements. 


Une sous-routine spéciale assure le 
transfert des données des variables 
de l'enregistrement vers le buffer du 
fichier et du buffer vers les variables. 
En effet, utiliser des instructions 
PEEK et POKE retarde sensiblement 
les opérations de lecture/écriture et 
suppose l'emploi de variables alpha- 
numériques dont le contenu change 
à chaque transfert de caractère, d’où 
saturation de la mémoire. 


Initialisation d’une disquette 
Fichier 


Le seul paramètre à fournir est la 
longueur de l'enregistrement LE 
(ligne 15 du programme INIT). Le 
RUN de ce programme assure en- 
suite l'initialisation d’une disquette 
vierge placée dans le drive 2, c'est-à- 
dire : 


- formatage de la disquette 


- écriture en piste O/secteur O (physi- 
ques) des paramètres de départ : 
première piste jamais utilisée (0) et 
premier secteur jamais utilisé (1), 
première piste et premier secteur 
libres (également 0 et 1), nombre de 
zones par secteur (INT(256/LE)), 
nombre de zones utilisées dans le 
premier secteur libre (0), adresse de 
la dernière zone libérée (piste=0 et 
secteur=0) mise à O pour signaler 
l'absence de zones libérées pour 
l'instant, longueur de l’enregistre- 
ment. 


À noter que le terme ‘secteur’ em- 
ployé ci-dessus se rapporte à la défi- 
nition de l'adresse, c'est-à-dire qu’il 
comporte à la fois l’indication du sec- 
teur physique et de la position dans 
ce secteur ; il s'agit donc d’un ’’sec- 
teur logique”. 


Utilisation des routines 


L'instruction ”&” permet d'accéder 
aux traitements de gestion du fichier 
(la ligne 2 du programme BASIC de 
démonstration place à l'adresse $3F5 
un JMP $8E70). Quatre instructions 
sont ainsi disponibles : 


e &W : écriture d'un enregistrement 
© &R: lecture d’un enregistrement 


e &M: modification d’un enregistre- 
ment 


e &A: annulation d’un enregistre- 
ment. 


Au niveau du BASIC, vous n'avez 
plus à vous préoccuper de l’affecta- 





tion des adresses aux enregistrements 
ou de la récupération des adresses li- 
bérées par des annulations d’enregis- 
trements ; tout cela est pris en charge 
par les routines assembleur. 


Quelques mots maintenant au sujet 
des variables BASIC qui constituent 
l'enregistrement. 


Ce sont des variables alphanuméri- 
ques simples (27 au maximum) dont 
il convient de spécifier le premier ca- 
ractère du nom (Z$="V” dans notre 
exemple) et le nombre diminué de 1 
(soit 2 dans notre exemple). Les va- 
riables utilisées ci-après sont ainsi 
VA$, VB$ et VC$. 


Si vous voulez utiliser 5 variables 
dont le non commence par W, il 
vous suffit de modifier la ligne 4 
comme suit : 


… : Z$="W”: POKE 250,ASC(Z$): 
POKE 249 4WA$="”"WB$="": 
WC$="”".WD$=""WES$ =?" 


Les routines assurent ensuite auto- 
matiquement le transfert du contenu 
de ces variables déclarées dans l’en- 
registrement sur disquette et récipro- 
quement. À noter que la longueur de 
chacune de ces variables est enregis- 
trée en même temps que son 
contenu : n'oubliez donc pas de ra- 
jouter un octet par variable lorsque 
vous calculez votre LE. 


Attention également, en ce qui 
concerne le transfert ‘enregistrement 
vers variables”, aù fait que l’on 
court-circuite la procédure Applesoft 
d'affectation des valeurs aux varia- 
bles alphanumériques et de contrôle 
de la place libre (le fameux FRE(0)). 
C’est pourquoi nous utilisons ici l’une 
des versions des routines FRE pré- 
sentées dans le numéro 2 de Pom's 
afin d'effectuer si nécessaire le ”’Gar- 
bage Collection” après chaque opé- 
ration de lecture (CALL 37500). Ne 
pas le faire, notamment au cours 
d’une lecture séquentielle du fichier, 
risque de laisser descendre” les 
chaînes de caractères jusqu'au bas 
de la mémoire, avec les résultats sur- 
prenants que cela suppose ! 


Enfin, notons que les disquettes ”Fi- 
chier” ainsi gérées sont copiables 
sans problème par COPYA. 





Pom's n° 9 


Programme INIT 


1 REM * INITIALISATION D’UNE DISQUETTE 
FICHIER EN D2 * 

2 REM 

10 HIMEM: 299300 

15 LE = 100: REM LONGUEUR DE L’ENREGIST 
REMENT 

20 DIM 2%(30) 

25 REM TABLE IOB ET TABLE CARACTERISTI 
QUES A PARTIR DE 299320 - ROUTINE 
D’APPEL À RWTS EN 768 

30 FOR I = O TO 28: READ Z%(I): NEXT 

40 FOR I = O TO 20: POKE 29920 + I,2%({I 
): NEXT : FOR I = O TO 7: POKE 76 
8 + 1,2%(21 + I): NEXT : CALL 768 

50 DATA 1,96,2,0,0,0,241,116,0,156,0, 


0,4,0,0,96,1,0,1,239,216,169,116, 
160,224,32,217,3,96 
55 REM POKE LES PARAMETRES DE LA DISQU 
ETTE A PARTIR DE 785 ET LES ECRIT 
ENSUITE EN PISTE O/SECTEUR O 
INT (256 / LE): POKE 785,0: POKE 
786,1: POKE 787,0: POKE 788,1: P 
OKE 789,N: POKE 790,0: POKE 791,0 
: POKE 792,0: POKE 793,LE 
70 POKE 293924,0: POKE 29925,0: POKE 2993 
28,17: POKE 29929,3: POKE 29932,2 
: POKE 29936,2: CALL 768: END 


60 N = 





Programme LIT-TF 


Q REM LECTURE INTEGRALE DU FICHIER 

HIMEM: 29437 

2 POKE 1013,76: POKE 1014,112: 

S,142: FOR I = O TO 22: READ 2%: 

POKE 35975 + I,Z2%: NEXT 
1,96,2,0,0,0,152,140,0,156,0 

0,4,0,0,96,1,0,1,239,216,0,0 


H 


POKE 101 


3 DATA 


5 Z$ = “V“: POKE 250, ASC (ZS): POKE 249 
,2:VAS = "":VBS = "":VCS = 
10 DS = CHRS (4): PRINT DS"BLOAD TABLE" 
: PRINT DS"BLOAD WRMA.OBJ": PRINT 
DS"BLOAD VAR.OBJ": PRINT D$"*BLOA 
D FRE(2)" 
20 AO = 29440:L = 9:MX = 242:N = 23:H0 = 
115:LE = 100:NZ = PEEK (AO - 2) 
* 256 + PEEK (AO - 1) 
30 NB = INT (NZ / N)D:HM = HO + NB:LM = 
ENS - NE + N)j - 3) + EL + 333 IF 
NZ = N »* NB THEN LM = MX:HM = HM 
- 1 
40 AM = HM * 256 + LM:A = AO 
50 ZS = "":I = 1 
60 ZS = 28 + CHRS ( PEEK (CA + I - 1)):1 
= I + 1: IF I < = L THEN 60 
70 POKE 29, INT (A / 256): POKE 28,A - 
(256 * INT (A / 256)): POKE 9,L: 


POKE 35215,LE: 
75 PRINT 28: 


& R: CALL 37500 
PRINT VAS: PRINT VBS: PRIN 


T VCS: PRINT : IF A = AM THEN EN 
D 

80 IF À = AO + MX THEN HO = HO + 1:A = 
HO * 256:AO0 = A: GOTO SO 


90 À = À + L + 2: GOTO 50 
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Programme TEST.RIA. WRMA.VAR 


1 HIMEM: 29437 

2 POKE 1013,76: POKE 1014,112: POKE 101 
5,142: FOR I = O TO 22: READ 2%: 
POKE 35975 + 1,2%: NEXT : REM PO 
KE JMP ADRESSE POUR & - POKE TABL 


E 1OB + TABLE CARACTERISTIQUES 
1,36,2,0,0,0,152,140,0,156,0, 
0,4,0,0,96,1,0,1,239,216,0,0 


3 DATA 


4 LE = 100:PO = 29440:HB = PO / 2S6:LC = 
9:L2 = LC + 2:NC = INT (256 / L 

2):00 = (NC - 1) »* L2:AI = PO - 2 

:LI = 5640:Z$ = “V": POKE 250, AS 

C (Z2$): POKE 249,2:VAS = “"":VBS = 

“#IVCS = ““: REM TOUS LES PARAM 

ETRES DU FICHIER SONT DEFINIS ICI 

S BLS = " “:DS = CHRS (4) :RUS = 
DS + ‘“PR#O'": PRINT DS'"BLOAD RIA. 

OBJ‘"": PRINT DS"BLOAD WRMA.OBJ": P 


RINT DS“BLOAD VAR.OBJ": 
BLOAD FRE(2)“: GOTO 100 

25 REM PAR SECURITE TOUS LES PARAMETRE 
S SE TROUVANT DANS DES VARIABLES 
DE TRAVAIL SUSCEPTIBLES D’ETRE UT 
ILISEES PAR D’AUTRES ROUTINES ASS 
EMBLEUR SONT ‘“REPOKES" AVANT CHAQ 
UE APPEL À LA ROUTINE DE GESTION 
DE TABLE D’INDEX (GOSUB 30) 

30 POKE 6,0: POKE 7,HB: POKE 8,00: POKE 
3,LC: POKE 207,L2: POKE 28,41: P 
OKE 29,A2:NB = INT (NZ / NC):HM 
= HB + NB:LM = C((NZ - NB * NC) - 
1) »* L2: IF NZ = NC * NB THEN LM 
= OO:HM = HM - 1 

35 POKE 26,LM: POKE 27,HM: RETURN 

100 PRINT DS'"BLOAD TABLE":NZ = PEEK (A 

1) * 256 + PEEK (AI + 1): PRINT 
___RUS —# 
PRINT 


PRINT DS" 


“NZ="NZ: PRINT : PRINT “1-CRE 
- 2-MOD 3-CONS 4-ANN. S-FIN ‘“ 
25 GET ZS:2% = VAL (ZS): IF Z% < 

1 OR 2% > 5 THEN 110 

PRINT : IF 2% = 5 THEN POKE AI, IN 
T (NZ / 256): POKE AI + 1,NZ - «(2 
56 * INT (NZ / 256)): PRINT DS"B 
SAVE TABLE,A"AI",L"LI",D1": PRINT 
DS"CLOSE": END 

IF NZ = O©O AND 2% > 1 THEN 
AS DE CLES"“: GOTO 110 

IF NZ = SOO AND 2% = 1 THEN 
“CAPACITE TABLE ATTEINTE": 
10 

INPUT "CLE : 
C THEN 130 

REM LA CLE S$S EST POKEE A L’ADRESS 
E $311 (ZONE “CLE“* DE LA ROUTINE 
ASSEMBLEUR) 

140 S$ = LEFTS (SS + BLS,LC): 
TO LC:Z(I) = ASC ( MIDS (SS,I,1 
2): POKE 784 + I,2(I1): NEXT : GOS 
UB 30: ON Z%x GOTO 150,250,250,250 

IF NZ = O THEN 170 

CALL 36000:A1 = PEEK (28):A2 = PE 
EK (29):AO = A1 + 256 * A2: IF P 
EEK (31) = 1 THEN PRINT "EXISTE 
DEJA‘": GOTO 110: REM AO=ADRESSE 
REELLE OU VIRTUELLE DE LA CLE DA 

NS LA TABLE 

|170 INPUT ‘DONNEE : 


110 


120 


125 PRINT ‘"P 


126 PRINT 
GOTO 1 
130 LEN 


“:SS: IF CSS) > L 


135 


FOR I = 1 


150 
160 


“; VAS: 


INPUT ‘DONNE 


(ICE 


SPHRAREEMESS SN 
BR À RS À #7 À $ 


RER DR 




















E : “;VBS: INPUT "DONNEE : 
175 IF LEN (VAS) + LEN (VBS) + 

VCS$) > LE - 3 THEN 

ONG‘: GOTO 170 


178 IF NZ = O THEN AO = PO: POKE 28,0: 


POKE 29,HB: GOTO 190 


180 IF AO < = HM * 256 + LM THEN GOSU 
DECALAGE P 


B 30: CALL 36176: REM 
OUR INSERTION DANS LA TABLE 


130 FOR I = 1 TO LC: POKE AO + I - 1,Z( 
1): NEXT :NZ = NZ + 1: REM MET L 
A CLE À SA PLACE DANS LA TABLE 
200 & W: IF PEEK (35988) = 255 THEN 
RINT “PLUS DE PLACE“: POKE 35988, 


(0) 
205 GOTO 110 


250 CALL 36000:A1 = PEEK (28):A2 = 


EK (29):AO = A1 + 256 * A2: IF 
PRINT “N’EXIST 


EEK (31) = O THEN 
E PAS": GOTO ii0 
260 POKE 35215,LE: & R:S = 


LS HAE 

2 :# 4 " 

3 ;# RECHERCHE/INSERTION/ANNULATION# TT. 

& ;* DANS TABLE D’ INDEX EN MEMOIRE # 

5 ;# PROGRAMME OBJET : RIA.OBJ # 

6 :# # 

TS ERA 

8 ; 

3 DR $8CA0 

10 OBJ $800 

11 ADEB EPZ $6  :ADRESSE DEBUT TABLE 

12 OOMX EPZ $8  :OCTET BAS ADRESSE DERNIERE CLE D'UN BLOC 
SL EPZ $9  ;LONGUEUR DE LA CLE 

14 ABEX EPZ $18  :ADRESSE DU BLOC EXAMINE 

15 AMAX EPZ $1A  :ADRESSE DERNIERE CLE DE LA TABLE 

16 ACLE EPZ $1C :CONTIENT L’'ADRESSE DE LA CLE CHERCHEE 
17 € EPZ $1F :SIGNALE RESULTAT RECHERCHE 

18 VP EDZ 4CF VARIABLE DE TonuarL 

19 APRO EPZ $D6  :IDEM 
20 L2 EPZ $CF  ;LONGUEUR DE LA CLE + 2 


21 CLE EQU $311 ;STOCKAGE VALEUR DE LA CLE 


23 ; RECHERCHE 

D 
2 LDA #0 

#% STA EX 

27 LDA ADEB  :EXAMEN PREMIER BLOC 
28 STA ABEX 

23 LDA ADEB+1 

30 STA ABEX+1 

31 56 CMP AMAX+1;DERNIER BLOC ? 

32 BNE Si 

3 LDA AMAX 

% SEC 

35 SBC ADEB 

36 TAY 

xt, MP 52 

38 Si  LDY 00M 

3352 LDX #0 


"> VCS 
LEN « 
PRINT “TROP L 


PEEK (8):P 


265 


270 


275 


280 


230 


300 


310 





=  PEEK (24):21 = PEEK (6):2Z2 = 
PEEK (7): CALL 37500 
PRINT “DONNEE : “VAS: PRINT “"DONNEE 
: “VBS: PRINT "“DONNEE : ‘“VCS: ON 
Z% GOTO 110,270,280,290 


ZLS = “NOUVELLE DONNEE : ‘“: PRINT ZL 


$S;: INPUT VAS: PRINT ZLS;: INPUT 
VBS: PRINT ZLS;: INPUT VCS 

POKE 35209S,P: POKE 6,Z1: POKE 7,22: 
POKE 35215,LE: & M: GOTO 110 

PRINT “APPUYEZ SUR UNE TOUCHE";: GE 
T 2$: PRINT : GOTO 110 

INPUT ‘“ANNULATION CONFIRMEE ? ‘;2S: 

IF Z$ < > “O“ THEN 110 

IF AO < HM * 256 + LM THEN GOSUB 3 
O0: CALL 36314: REM DECALAGE DE L 
A TABLE POUR ECRASER LA CLE ANNUL 
EE 


NZ = NZ - 1: POKE 8,5: POKE 24,P: & 


A: GOTO 110 


40 511 LDA (ABEX),Y : COMPARAISON DE LA CLE AVEC LA DERNIERE 
al CMP CLE,X DU BLOC CARACTERE PAR CARACTERE 
42 BCC 53 ;LA CLE CHERCHEE EST SUPERIEURE 
43 JP S4 
4h S3 LDA ABEX+1 
45 CMP AMAX+1  :FIN DE TABLE ? 
46 BEQ 55 
47 INC ABEX+1 :EXAMEN DU BLOC SUIVANT 
48 LDA ABEX+1 
49 JM 56 
50 55 TYA CALCUL ADRESSE VIRTUELLE DE LA CLE 
si STX WP 
52 SEC 
53 SBC WP 
5 TAY 
55 CPY DOMX 
5 BEQ 57 ;DERNIERE CLE ACTUELLE=FIN D'UN BLOC 
57 INY 
58 INY 
59 TA 
60 CLC 
61 ADC L 
62 CLC 
63 ADC ABEX 
64 STA ACLE  :0CTET BAS = ABEX+Y-X+(L+2) 
65 LDA AMAX+1 
66 STA ACLE+1 
67 RTS 
68 57 LDA ADEB  :DEBUT D'UN NOUVEAU BLOC 
69 STA ACLE 
70 LDX AMAX+1 
71 INX 
72 STX ACLE+1 
73 RTS 
74 S4 BEQ 58 ;EGALITE CARACTERE/CARACTERE 
75 JMP 59 
76 58 INK CARACTERE SUIVANT S'IL EXISTE 
77 CPX L 
HART ir iertl 
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78 BEG 510 :0K - C'EST LA DERNIERE DU BLOC 
73 INY 

80 JP 511 

81 510 LDA #1 :0N A TROLWE ! 

82 STA EX 

83 INY CALCUL ADRESSE DE LA CLE 

84 TYA 

85 CLC 

86 ADC ABEX 

87 SEC 

88 SBC L 

83 STA ACLE *OCTET BAS = ABEX+Y-X 

90 515 LDA ABEX+! 

4 STA ACLE+1 

92 RTS 

33 59 LDY # :SI ELLE EXISTE LA CLE SE TROUVE DANS 
S4 513 LDX #0 CE BLOC. ON LE REPREND AU DEBUT 
95 517 LDA (ABEX),Y 

96 CMP CLE, X 

97 BCS 512 _SCLE(=CELLE EXAMINEE 

98 INY :LA CLE EST SUPERIEURE 

39 INY °0N LA COMPARE A LA SUIVANTE 
100 TYA 

101 CLC 

102 ADC L 

103 STX WP 

104 SEC 

105 SBC 4 

106 TAY 1Y=Y-X+(L+2) ET ON REPART... 
107 JP S13 

108 S12 BEG Si4 :EGALITE CARACTERE /CARACTERE 
109 TYA :CLE INFERIEURE A CELLE EXAMINEE 
110 CLC CALCUL DE SON ADRESSE VIRTUELLE 
ii ADC ABEX 

112 STX WP 

113 SEC 

it SRC VP 

115 STA ACLE *OCTET BAS = ABEX+Y-X 

\i6 JMP 515 

117 Si4 INX : CARACTERE SUIVANT SI IL EXISTE 
118 CPX L 

119 BNE S16 | 

120 J# 510 TOUS CARACTERES SONT EGAUX 

121 S16 INY 

122 JP 517 

D em 

124 ; DECALAGE POUR INSERTION 

DS 2 ————— 

126 LDA AMAX+I :ON PART DE LA FIN DE LA TABLE 
127 STA ABEX+! 

128 LDA ADEB 

129 STA ABEX 

H LDA AMAX 

13i SEC 

132 SBC ADEB 
133 TAY 

134 CPY OOMX 
135 BEQ Ti 

Î JP T2 
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LDA ADEB 
STA APRO 
LDX ABEX+i 
INX 

STX APRO+I 
JSR TS 
JM T4 
LDX #0 


LDA (ABEX),Y 


STA CLE, X 
INX 

CPX L2 
BEQ TS 
INY 

JP T6 
RTS 

LDX #0 
LDY #0 
LDA CLE, X 


STA (APRO),Y 


INX 


LDX #0 
LDA CLE, X 


STA (ABEX) ,Y 


INX 

CPX L2 
BEQ T9 
INY 

JMP TI 
LDY WP 
LDA ABEX+1 


PROBLEME DES FRONTIERES DE BLOC 


>DEBUT DU BLOC SUIVANT 


:STOCKE PROVISOIREMENT L' ELEMENT 
«A DECALER DANS CLE 


CLE -) DEBUT DU BLOC SUIVANT 


3DECALAGE À L’ INTERIEUR D'UN BLOC 
TRANSFERT DANS CLE 
CLE -) ADRESSE SUIVANTE DU BLOC 


BLOC OÙ IL FAUT INSERE LA CLE ? 


YADRESSE OU IL FAUT INSERER ? 


3DEBUT DU BLOC TRAITE ? 


3DECALAGE ELEMENT PRECEDENT 


3PASSE FIN BLOC PRECEDENT (FRONTIERE) 


À À 
51 














199 LDA ADEB ;ON PART DE LA CLE CONCERNEE 
200 STA ABEX 

201 LDA ACLE+I 

202 STA ABEX+1 


203 LDA ACLE 

204 SEC 

205 SBC ADEB 

206 TAY 

207 U13 CPY OOMX 

208 BEQ Ui 

209 JMP U2 

210 U1 LDA ADER >FRONTIERE DE BLOC 
211 STA APRO 

212 LDX ABEX+1 

213 INX 

214 STX APRO+1  :;DEBUT BLOC SUIVANT 
215 LDX #0 

216 STY WP: 

217 LDY #0 


218 U4 LDA (APRO), Y :1ER BLOC SUIVANT -) CLE 
219  STACLE,X 


220 INX 

22i CPX L2 
222 BEG US 
223 INY 

224 JP U4 
225 US LDX # 
226 LDY WP 


227 U6 LDACLE,X  ;REMPLACE DERNIER ELEMENT DU BLOC 
228 STA (ABEX) ,Y 


229 INX 
230 CPX L2 
231 BEQ LS 
232 INY 
233 JMP U6 


254 US LDA APRO ;DECALAGE DANS LE BLOC SUIVANT 


3 EHEHHEEHHHHHHNNEE 

" : Lisa 
‘# GESTION DU FICHIER/DONNEES + 1.5 
1# PROGRAMME OBJET : WRMA.OBJ  +* 

"+ * 

3 BH 


. 


… 


DRG $8E 70 

OBJ $800 

10 FJU EGU $8987 :PJU/PSU = 1ERE ADRESSE LOGIQUE 

11 PSU EQU $8988 : JAMAIS UTILISEE 

{2 PPL EQU $8989 :PPL/PSL = 1ERE ADRESSE LOGIQUE LIBRE 
13 PSL EQU $898h 

14 NIS EQU $698B :NBRE ZONES/SECTEUR PHYSIQUE 

15 NZU EQU $898C :NBRE ZONES UTILISEES/SECTEUR EN COURS 
16 DZLP EQU $898D :DZLP/DZLS = DERNIERE ADRESSE LOGIQUE 
17 DZLS EQU $898E LIBEREE 


0 D 1 OO O1 À LA ND 


BAYER EUEREREHES 
EPS Rervers 


236 LDA APRO+I 
237 STA ABEX+1 


238 LDY #0 
239 JMP U7 
240 U2 STY WP 
241 TYA 
242 CLC 
2843 ADC L2 
244 TAY 
245 LDX #0 


+DECALAGE DANS UN BLOC 


ELEMENT SUIVANT : Y=Y+(L+2) 


246 U9 LDA (ABEX),Y ;ELEMENT SUIVANT -} CLE 


247  STACLE,X 


248 INX 

249 CPX L2 
250 BEG UB 
251 INY 

252 JHP U9 
253 UB LDY W 
254 LDX #0 


255 ii LDA CLE,X 


CLE -} ELEMENT "ECRASE" 


256  STA (ABEX),Y 


257 INX 
258 CPX 12 
259 BEQ 10 
260 INY 
261 JMP U1{ 
262 U10 INY 


*DEBUT ELEMENT DEPLACE 


264 CMP AMAX+1 DERNIER BLOC ? 


265 BEG U12 
266 JMP U1S 
267 Ui2 TYA 

268 CLC 

269 ADC ADEB 
270 CMP AMAX 
271 BEQ Ui4 
272 JP U13 
273 Ui4 RTS 

274 DCM “INT* 
275 END 


18 LE EQU $898F 
19 IOB EQU $8C87 
20 COM EQU $8093 
21 BUF2 EQU $8A87 
22 DPL EGU $8C9C 
23 DSL EQU $8C9D 
24 TRA1 EQU $BBB6 
25 TRA2 EQU $4BF3 
26 ACLE EPZ $1C 
27L  EPz #9 

28 Ii EPZ $6 

29 12 EPZ $7 

30 S EPZ $8 

3i P EPZ $18 
32 60 BNE EXAO 
ss) RTS 

34 EXA JSR $Bi 


;DERNIERE CLE DE LA TABLE ? 


LONGUEUR ENREGISTREMENT (ZONE) 

TABLE IOB (SUIVI DE TABLE CARACTERISTIQUES) 
>ORDRE POUR RWTS 

>BUFFER ENTREE /SORTIE POUR DONNEES 

;DPL/DSL = DERNIER SECTEUR PHYSIQUE LU 


"TRANSFERT VARIABLES -) BUFFER 
«TRANSFERT BUFFER -) VARIABLES 

"ADRESSE CLE LIEE À L’ ENREGISTREMENT 

: LONGUEUR DE LA CLE 

:POSITION DANS LE SECTEUR PHYSIQUE 

:SECTEUR PHYSIQUE DE L'ADRESSE LOGIQUE 
*SECTEUR LOGIQUE (VARIABLE DE TRAVAIL) 

*PISTE PHYSIQUE/LOGIQUE (VARIABLE DE TRAVAIL) 


FIN INSTRUCTION & 
ROUTINE APPLESOFT CHRGET 
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5 JMP 60 

36 EXAO CMP #°W° INSTRUCTION WRITE 

37 BNE EXAI 

38 JMP DE 

39 EXA1 CMP #8’ : INSTRUCTION READ 

40 BNE EXA2 

&i JMP PROR 

42 EXA2 CMP #°W° INSTRUCTION MODIFICATION 

4 BNE EXAS 

& JMP PROM 

45 EXA3 CMP #” A : INSTRUCTION ANNULATION 

46 BNE EXA 

47 JMP PROA 

48 DEB JSR LOO 

43 JMP DEBF , 

50 LOO LDA #0 CHARGE PARAMETRES DISQUETTE 
si STA 10B+4  : (PISTE O/SECTEUR 0) EN $4987 
32 STA I0B+5 

ea LDA #$87 

db STA 10B+8 

55 LDA #$89 

5 STA 10B+9 

57 LDA #1 

5 STA COM 

53 JSR RH 

60 RTS 

61 DEBF LDA PJU 

62 CMP PPL 

63 BEG 50 

64 JP LIBO IL Y À DES ADRESSES LIBEREES 
65 50  LDA PSU 

66 CMP PSL 

67 BEG 51 

68 JMP LIBO 

6951 LDA PPL 11ERE LIBRE = iERE JAMAIS UTILISEE 
70 CMP 4423 

pi BNE 52 

72 LDX #$FF *SIGNALE SATURATION DISQUETTE 
73 STX $8C% 

74 RTS 

75 52 JSR 520 

76 JM 521 

77 820 tDY L 2AFFECTE L'ADRESSE A LA CLE 
78 LDA PPL :DANS LA TABLE D’ INDEX 

7 STA (ACLE),Y 

80 INY 

81 LDA PSL 

82 STA (ACLE) ,Y 

EU STA S 

8 JSR DCS :DECOUPE LE SECTEUR LOGIQUE 
85 LDA EPL 

86 CMP DPL 

87 BNE 53 LECT. SECT. PHYS. SI PAS DANS BUFFER 
88 LDA 22 

83 CMP DSL 

50 BNE 53 

91 B0O LDX Z1 CALCUL POSITION ZONE DANS SECTEUR 
g2 BEQ S4 

33 LDA #0 

g& BQ CLC 
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É 
9% 
97 
98 
7 54 
100 
101 53 
102 
105 
104 


ADC LE 

DEX 

BNE BO 

TAX 

JSR TRA! : TRANSFERT : CONTENU DES VARIABLES -) 
JMP 56 BUFFER 


JSR 55B 
LDA #i 
STA COM 
JSR RW 
105 JP B00 
106 S3B LDA PPL  :INDIQUE PARAMETRES PISTE/SECTEUR ET 
107 S3BB STA 10B+4 :ADRESSE DU BUFFER DANS TABLE !OB 
108 STA DPL 
109 LDA 22 
110 STA 10B+5 
iii STR DSL 
112 LDA #$87 
113 STA IOB+8 
ii4 LDA #$8A 
115 STAR 10B+9 
ii RTS 
117 S6 JSR 53B 
118 LDA #2  ;ECRITURE SECTEUR PHYSIQUE SUR DISQUETTE 
119 STA COM 
120 JSR RW 
121 RTS 
122 521 NC NZU 
123 LDA NIU 
12 CMP NZS 
125 BEG 57  :PLUS DE ZONES LIBRES DANS LE SECTEUR 
126 INC 7: PROCHAINE ZONE LIBRE 
127 570 JSR COA :FABRIQUE LE SECTEUR LOGIQUE 
1£ LDR S 
129 STA PSU :MAJ DES PARAMETRES 
15 STA PSL 
131 571 LDR #0  ;PAR SECURITE SAUVEGARDE DES PARAMETRES 
132 STA 10B+4 :LORSQU’ IL SONT MODIFIES 
133 STA :0B+5 
134 LDR #$87 
135 TA 10B+8 
136 LDA #$89 
13 STA !OB+9 
138 LDA #2 
159 STA COM 
140 JSR rh 
‘41 JM? EXR 
142 S7  LDA #0 
143 STA Zi 
14 STA NU 
85 INC 22  :PASGAGE AU SECTEUR SUIVANT 
146 LDA 22 
147 CMP #$10 :FIN DE PISTE ? 
148 BNE 570 
143 INC PJU  :PASGAGE À LA PISTE SUIVANTE 
150 INC PPL 
| 151 LDA 40 
192 STA 22 
153 JMP 570 
154 LIBO LDA PAL 








155 CMP DZLP 215 LDA 22 


156 BNE LIBI 26 CMP DS 
157 LDA PSL 217 BNE AI :LIT SECT. CONTENANT L'ENREGISTREMENT 
158 CMP DZLS 218 A5 LDX ZI 
159 BNE LIBI 29  BEG @2 
160 JSR 520  ;1ERE ADRESSE LIBEREE EST AUSSI DERNIERE | 220 JSR LLO 
161 LDA PJU  :1ERE ADRESSE LIBRE REDEVIENT 221 A2 JSR TRA2 : TRANSFERT ENREGISTREMENT -) VARIABLES 
162 STA PPL LA PREMIERE JAMAIS UTILISEE 222 JMP EXA 
163 LDA PSU 23 A1 LDAP 
164 STA PSL 224 STA PPL 
165 LDA #0 25 JSR 53B 
166 STA DZLP 2% LDA #1 
167 STA DZLS 21 STA COM 
168 JMP 571 228 JSR RN 
169 LIB1 LDA PSL  :MODIF CHAINAGE PISTES LIBEREES 29 JM A5 
170 STA S 230 PROM JSR B00 :MAJ/ECRITURE DU SECTEUR PHYSIQUE/ 
171 JSR DCS1 231  JMPEÏA LOBIQUE 
172 LDA PPL 232 PROA JSR LOO :LECTURE PARAMETRES 
173 CMP DPL 233  LDA DZAP 
174 BNE LIB2 234  BNETI 
M 175 LDA 22 235  LDA DZLS 
D 17% CMP DSL 236 BNŒETI 
M 17 BNE LIB2  ;LIT SECT. CONTENANT LA ZONE LIBEREE 237  LDAP :IL N'Y A PAS D'ADRESSES LIBEREES AUTRES 
N 178LI0 LDX Zi 238  STAPPL :QUE CELLE QUI VIENT DE L'ETRE 
ON 179 BEQ LIA 233  STA DZP 
180 JSR LLO 240 LAS 
… 181 JP LIA 241 STA PSL 
… 182 LLO LDA 40 :CALCUL POSITION ZONE DANS LE SECTEUR 242  STA DAS 
… 183 LI00 CLC 243 JP S71 
… 14 ADC LE 244 Ti LDYS  :SAUVEGARDE SECTEUR LOBIQUE LIBERE 
= 185 DEX 285  LDA DZLS 
186 BNE LI00 246 STA 5 
187 TAX 247  JSR DCSI 
188 RTS 248  STYS 
189 LI LDA BUF2,X :2 PREMIERS OCTETS DE LA ZONE SONT 249  LDA DZLP 
190 STA $330  ;PISTE/SECTEUR LOGIQUE DE L' ADRESSE 250 CMP DPL 
191 INX ;LIBEREE SUIVANTE Ai BNE T2 
192 LDA BUF2, X 252 LA Z2 
193 STA $331 253 CDS 
194 JSR 520 254  BNE T2 :LIT SECT. CONTENANT DERNIERE ADR. LIB. 
195 LDA $330 255 T5 LDX 1 
136 STA PPL 256  HEG TS 
197 LDA $331 257  JSR LLO 
138 STA PSL 258 TS LDAP  :CHAINAGE SUR ADR. JUSTE LIBEREE 
199 JMP 571 259  STA BUF2,X 
200 LIE2 JSR S3B 260 IN 
21 LDA #1 261 LAS 
202 STA COM 262  STA BUF2,X 
203 JER RH 263 JP T4 
204 JP LIO 264 T2 LDA DZLP 
205 PROR LDY L ;CHARGE L'ADRESSE DE L' ENREGISTREMENT 265  JSR S3BB 
206 LDA (ACLE) ,Y 266  LDA #1 
207 STA P 267  STA COM 
208 INY 268  JSR RW 
209 LDA (ACLE), Y 269  JMTS 
210 STA 5 270 T4 DA DZLP :ECRITURE DU SECTEUR MIS A JOUR 
211 JSR DCS1 271 JSR S3BB 
212 LDA P 212  LDA #2 
213 CMP DPL 273  STA CM 
214 BNE Ai 274 JR RH 
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MICRO-PERIPH 
ouvre les portes de votre @arpie Ir 


NOUVEAU 


RAMEX 128 K AVEC V-C EXPAND VERSION 80-2 (5 800 F T.T.C.) 

Si vous souhaitez utiliser votre VISICALC avec : 

+ 136 K de mémoire + chargement d'un tableau complet en 20 secondes 
+ 80 colonnes sur l'écran (logiciel compatible avec 4 différentes cartes 
80 colonnes) 

+ Largeur de colonnes variable individuellement 

+ Curseur programmable 

+ Beaucoup d'autres améliorations très nombreuses 

(Ce logiciel qui est également compatible avec les cartes Saturn est dispo- 
nible séparément (1 570 F T.T.C.). La carte RAMEX 128 K est disponible 
aussi séparément pour 4 600 F T.T.C., y compris le logiciel SOLIDOS.) 


NOUVEAU 


WILDCARD (1 400 F T.T.C) 

Cette carte équipée d'un bouton poussoir vous permet d'arrêter l'exécu- 
tion d'un programme et de décharger l'état de mémoire sur un disque. Ce 
qui veut dire que vous pouvez réaliser des copies de programmes qui ne 
sont plus protégées ou sauvegarder un programme de jeu à un niveau 
choisi. Grâce à ces logiciels utilitaires, cette carte est de loin la plus puis- 
sante de ce genre. La carte est livrée avec un manuel détaillé en français. 


LES CARTES « PILOTS » 


U-TERM (1 680 F T.T.C.) 

Cette carte qui vous donne 80 colonnes sur l'écran vous permet d'avoir 
deux jeux de caractères à la fois qui sont co-résidents dans la mémoire 
vive et la mémoire morte de la carte. Par exemple, les caractères français 
majuscules et minuscules ainsi que les caractères anglo-saxons. Elle a 
une très grande gamme de compatibilité : APPLESOFT, PASCAL, CP/M, 
APPLEWRITER Il, etc. (Photo 2). 

U-Z80 (1 150 F T.T.C.): son point fort est la vitesse : 4 MHz. Compatible avec 
tous les logiciels CP/M ou de Z80 (Photo 1). 

U-RAM16 (890 F T.T.C.) : c'est une carte langage entièrement compatible 
avec INTEGER BASIC, PASCAL, VISICALC, etc. Pourquoi payer plus cher ? 
U-S232 (1040 F T.T.C.) : une carte de série, vitesse variable entre 75 et 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui 
permet de faire fonctionner une imprimante à sa vitesse optimale. Compa- 
tible avec le logiciel de communication VISITERM (Photo 9). 


DIVERS POUR L'APPLE II 


JOYSTICK TRACKBALL (660 F T.T.C) : une grande boule pour diriger vos 
navires spatiaux, 

CARTE HORLOGE (1 120 F T.T.C.) : au quartz avec pile et logiciel agenda. 
ROBOCOM BITSTICK (5 010 F T.T.C.) : un système très sophistiqué de dessin 
graphique. 

D BASE Il (6 800 F T.T.C.) : système de base de données relationnel (Z 80) 
JOYSTICK KRAFT (510 F T.T.C.) et JOYSTICK TG PRODUCTS (570 F T.T.C.): 
fabriqués aux États-Unis, ils sont d'excellentes qualité et fiabilité. 
LECTEURS DE DISQUES : toutes les configurations possibles entre 143 K 
octets et 2 M octets, entièrement compatibles avec l'Apple Il. 

CCS carte synchrone (2 770 F T.T.C.) : pour dialoguer avec un IBM 

DB MASTER (3 400 F T.T.C) : très puissant. Base de données. 

DATA FACTORY (3 172 F T.T.C.) : peut-être la plus puissante des bases de 
données. 

ASCII EXPRESS PROFESSIONAL (1930 FT.T.C.): permet d'envoyer 
n'importe quel fichier en DOS par modem. 

MUMATH/MUSIMP Z80 (3 890 F T.T.C.) :très puissant logiciel mathémati- 
que. 

VENTILATEUR (750 F T.T.C.) : se branche à gauche de l'Apple Il. Alimente 
l'Apple Il. 


Ouvert du mardi au samedi : 10h-12het14h-18h 
62, rue Ducouédic - 75014 PARIS (Tél. : 321.53.16) 


NOUVEAU 


ACCELERATOR II (5 600 F T.T.C.) 

Cette carte, fabriquée par Saturn Systems, est équipée d'un microproces- 
seur 6502 C qui tourne à 3,58 MHz et de 64 K de RAM. Cette augmentation 
de vitesse de 358 % se traduit par une augmentation de rapidité d'exploita- 
tion de tous les programmes. La carte est directement compatible avec 
tous les langages et programmes (Applesoft, Integer, Binaire, Pascal, For- 
tran 77, Forth ainsi que tous les progiciels tels que Visicalc, DB Master, 
etc.). À la commande, spécifier version Apple Il ou Apple lle. 


NOUVEAU 


PROGRAMMEUR D'EPROMS (1 740 F T.T.C.). La carte se branche dans un 

slot de l'Apple Il et permet de programmer directement les EPROMS (2758, 

2716, 2732 et 2764). Un logiciel de gestion du programmeur se trouve sur la 

carte de mémoire morte. Une carte existe également pour adapter les 
PROMS programmés sur l'Apple 1 (630 F T.T.C.). 


EXTENSIONS DE MÉMOIRE 


U-RAM 32K (1 450 F T.T.C.), U-RAM 64K (2 590 F T.T.C.), U-RAM 128K 
(4 250 F T.T.C.) (Photos 7 et 4). VERSA RAM émulateur de disque (690 F 
T.T.C.). 


CARTES SCIENTIFIQUES 


U-AID (5880FT.T.C.): carte analogue digitale haute vitesse, 12 bits, 
16 gammes (Photo 6). 

Carte A/D 8 bits (1 400 F T.T.C.), 1 gamme (470 F T.T.C.) 

Carte D/A 8 bits (1 889 F T.T.C.), 1 gamme (450 F T.T.C.) 

U-BCD (1 120 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C.), 32 lignes entrée-sortie avec temporisateur et buffer 
U-TIM (1 120 F T.T.C.) temporisateur 

U-2 PORT (1960 F T.T.C.): 2 portes RS 232 sur la même carte extensible 
jusqu'à 8 portes(Photo 5) 

THE MILL 6809 (NC) : co-processeurs à haute vitesse et de multiprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits interne (Photo 3). 

Nous avons plusieurs autres cartes qui ne sont pas mentionnées ici; 
renseignez-vous 


ENSEMBLES D'EXPANSION VISICALC 


V-C 50K (3 560 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
32K 

V-C 82K (4580 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
64K 

V-C 145K (6 360 F T.T.C.) : t'carte 80 colonnes, V-C expand logiciel, U-RAM 
128K 

V-C consolidator (400 F T.T.C.) : pour consolider plusieurs tableaux de VISI- 
CALC 

V-C super expand (700 F T.T.C.) : version 40 colonnes avec sauvegarde sur 
diskette en 20 secondes (le RAMEX 128K est nécessaire) 

V-C super expand 80 (900 F T.T.C.) : version 80 colonnes compatible avec 
les cartes omnivision 80, Videx et U-Term (le RAMEX 128K est nécessaire) 


NOUVEAU 


EPSON FX 80 (6 700 F T.T.C.) - PROMOTION 

Vitesse : 160 c.p.s., 80, 40, 137, 68, 96 ou 48 caractères par ligne, 
friction/traction, 9 formats graphiques, 9 jeux de caractères, RAM avec 
logiciel ouvert pour générer votre propre jeu de caractères, matrice de 11 
fois 9, espacement proportionnel, mode silencieux. 


Si vous ne voyez pas ce que vous cherchez ou si vous désirez de plus 
amples renseignements, téléphonez à MICRO-PÉRIPH (321.41.80). Si vous 
ne pouvez vous déplacer, téléphonez-nous pour connaître le revendeur le 
plus proche de chez vous ou complétez le bon de commande ci-dessous. 
TOUTES NOS CARTES SONT GARANTIES 12 MOIS 


BON DE COMMANDE 


A découper et envoyer à : 
MICRO-PÉRIPH, 62 rue Ducouédic - 75014 Paris - Tél. : 321.53.16 
Je désire recevoir rapidement, sous pli recommandé : 


QUANTITÉ DÉSIGNATION TOTALT.T.C 


Total 
Frais de port recommmandé 


Ci-joint un chèque/C.C.P. de F : 











278 STA DZLS 301 STX S 
279 JMP 571 302 EDX #4 
280 DCS1 LDX #0 DECOUPAGE DU SECTEUR LOGIQUE 303 CO ROR 22 
281 STX 21 304 ROR 5 


285 ROL Zi 321=4 BITS DE GAUCHE 308 Ci ROR Zi 


290 Di ROR 3i3 RW LDA #$8C >APPEL A RWTS 


275 LDA P SMAJ DES PARAMETRES 298 BNE D2 

276 STA DZLP 299 RTS 

2717 LDA 5 300 COA LDX #0 *CONSTITUE LE SECTEUR LOGIQUE 
291 ROR 22 :12=4 BITS DE DROITE Si4 LDY #$87 

res 





LS HEART 35 BEG CK 
2 :# # Lisa 36 NON LDA PTV PASSE À LA VARIABLE SUIVANTE 
3 ;# TRANSFERT VARIABLES (-) BUFFER# 1.5 37 CLC (7 OCTETS PLUS LOIN) 
4 ;*# PROGRAMME OBJET : VAR. OBJ # 38 ADC #7 
5 :# 4 39 STA PTV 
GS REEEEMMEHAHNHMAAHENNNHHHHEE 40 BCC BCLO 

ee 7; 4i INC PTVH 

2 8 DRG $8B87 42 JW BCLO 

“ 9 OBJ $800 43 OK RTS 

AO NV EPZ F9  :NOMBRE DE VARIABLES MOINS ! Ge 

1 1145 EPZ $FA  ;CODE ASCII PREMIERE LETTRE 45 ; TRANSFERT VARIABLES -) BUFFER 

12 PV EPZ $FD CONTIENT ADRESSE DEBUT VARIABLE 6 
13 AV EPZ $EE ;CONTIENT ADRESSE CONTENU DE LA VARIABLE | 47 TRAI JSR BUVA 
14 LV EPZ $FB  ;LONGUEUR DE LA VARIABLE 4B TR& JSR BCLO 
15 NVCO EPZ $FF NOMBRE DE VARIABLES TRAITEES MOINS 1 43 INY 
16 AVC EPZ $FC  :CODE 2EME LETTRE VARIABLE TRAITÉE 30 LDA (PTV),Y ;LONGUEUR DE LA VARIABLE 
17 BUF2 EQU $8A87 oi STA LV 
18 FRETOP EPZ $6F ;FIN ZONE CHAINES DE CARACTERES 32 STA BUF2,X ;STOCKEE AVANT LA VALEUR ELLE MEME 
19 BUVA  LDY # S3 BNE TRI 
2 STY NVCO 5% INX VARIABLE = CARACTERE NUL 
21 LDY #$C1  ;$C1=CHRS (A) +$80 59 JMP TR2 
22 STY MUC % TRI INX 
23 BUVAO LDA $69 ;INITIALISE À LOMEM 57 INY 
24 STA PTV 58 LDA (PTV),Y ;0CTET BAS ADRESSE DE LA VALEUR 
ps) LDA $6A 59 STA 
26 STA PTV+1 60 INY | 
277 RTS 61 LDA (PTV),Y ;0CTET HAUT ADRESSE DE LA VALEUR 
28 BCLO LDY #0 RECHERCHE LE NOM DE LA VARIABLE 62 STA AV+#I 
29 LDA A5 63 LDY #0 
30 CMP (PTV),Y 3 1ERE LETTRE = AS ? 64 TRS LDA (AV),Y ;TRANSGFERT VALEUR -) BUFFER 
ai BNE NON 65 STA BUF2,X 
32 INY 66 INX 
33 LDA (PTV),Y 67 INY 
4 CMP AVC ;2EME LETTRE = NVC ? 68 CPY LV 





56 Pom's n° 9 


69 BNE TRS 36 

10 TR2  LDA NVCO 37 

71 CMP NV :DERNIERE VARIABLE ? 38 

72 BEQ SORTI 39 

T3 INC NVCO  :PAGGE A VARIABLE SUIVANTE 100 

7à INC AVC 101 BCI 
T5 JSR BUVAO 102 

76 JMP TR4 103 

T1 SORT RTS 104 

D 105 

19 : TRANSFERT BUFFER -) VARIABLES 106 
DO — 107 

81 TRA2 JSR BUVA 108 

82 RCA  LDA BUFZ, X :LONGUEUR DE LA VARIABLE 109 

83 STA LV 110 

8 INX 111 

85 CMP #0 112 BC3 
Es BEG BC1  :VARIABLE = CARACTERE ALL 113 

87 LDA $6F  :MAJ DE FRETOP (DESCENDU DE LV OCTETS) 114 

É SEC 115 

89 SBC LV 116 

% STA $6F 1i7 

gi LDA $70 118 

ge SBC #0 119 SORT2 
93 STA $70 120 

% LDY #0 121 


% BC2 LDA BUF2,X ; TRANSFERT VALEUR EN COMMENCANT A FRETOP 


STA (FRETOP) ,YŸ 
INX 


«CHERCHE ADRESSE DU NOM 


LDA LV 
STA (PTV),Ÿ :RANGE LA NOUVELLE LONGUEUR 
BEQ BC3 


:RANGE NOUVELLE ADRESSE DE LA 
STA (PTV),Y VALEUR 
INY 

LDA #70 

STA (PTV),Y 
LDA NVCO 
CMP M «DERNIERE VARIABLE ? 


;PASSE A VARIABLE SUIVANTE 


RTS 
DCM "INT" 
END 





Programme RIA. OBJ 


Récapitulation 
#BCA0. 8E69 


8CRO- A9 00 85 1F A5 06 85 18 
8CA8- AS 07 85 19 CS 1B DO 09 
8CB0- AS 1A 38 ES 06 AB 4C BB 
8CB8- 8C A4 08 A2 00 B{ 18 DD 
8CCO- 11 03 90 03 4C F9 8C A5 
8CC8- 19 C5 1B FO 07 E6 19 À 
8CD0- 19 4C AC 8C 98 86 CE 58 
8CD8- ES CE A8 C4 08 FO 10 C8 
8CEO- C8 98 18 65 09 18 65 18 
8CE8- 85 1C A5 1B 85 1D 60 A5 
8CFO- 06 85 1C A6 1B EB 86 1D 
BCFB- 60 FO 03 4C 1A 8D EB E4 
8D00- 09 FO 04 C8 4C BD 8C A9 
8D08- 01 85 1F C8 98 18 65 18 
8D10- 38 E5 09 85 1C AS 19 85 
8D18- 1D 60 AO 00 A2 00 Bi 18 
8D20- DD 11 03 BO OF C8 CB 98 
8D28- 18 65 09 86 CE 38 ES CE 
8D30- A8 4C 1C 8D FO 0E 98 18 
8D38- 65 18 86 CE 38 ES CE 85 
8D40- 1C 4C 15 8D EB E4 09 DO 
8D48- 03 4C 07 8D C8 4C 1E @D 
8D50- AS 1B 85 19 A5 06 85 18 
BD58- AS 1A 38 ES 06 AB C4 O8 
8D60- FO 03 4C JE 8D AS (6 85 
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8D68- D6 À6 19 E8 86 D7 20 74 
8D70- 8D 4C 85 8D A2 00 Bi 18 
8D78- 9D 11 03 EB E4 CF FO O4 
8D80- C8 4C 76 8D 60 A2 00 A0 
8D88- 00 BD 11 03 91 D6 EB E4 
8D90- CF FO O4 CB 4C 83 8D 45 
8D98- 08 85 CE 4C B4 8D 84 CE 
8DA0- 20 74 BD CB A2 00 BD 11 
8DA8- 03 91 18 EB E4 CF FO 04 
8DBO- C8 4C AG 8D A4 CE A5 19 
8DB8- C5 1D DO OA A5 06 18 65 
8DCO- CE CS 1C DO 01 60 CO 00 
8DC8- FO 09 AS CE 38 ES CF AB 
8DD0- 4C JE BD A4 08 C6 19 4C 
8DD8- 65 8D A5 06 85 18 AS 1D 
8DEO- 85 19 À5 1C 38 ES 06 AB 
8DE8- C4 08 FO 05 4C 2B 8E À 
8DFO- 06 85 D6 À6 19 EB 86 D7 
BDF8- A2 00 @4 CE AQ 09 R: D 
8E00- 9D 11 03 EB E4 CF FO 04 
8E08- C8 4C FE BD A2 00 A4 CE 
8E10- BD 11 05 91 18 E8 £4 CF 
8E18- FO 04 CB 4C 10 8E A5 % 
8E20- 85 18 A5 D7 85 19 A0 00 
8E28- 4C 55 8E 84 CE 98 18 65 
8E30- CF AB A2 00 Bi 18 9D 11 
8E38- 03 E8 E& CF FO O4 C8 4€ 
8E40- 34 BE A4 CE A2 00 BD 11 
8E48- 03 91 18 E8 E4 CF FO 04 
8E50- C8 4C 46 BE CB AS 19 C5 


27 dr Re -2 de Eh A 


SO ER 


FFT AS 


8E58- 1B FO 03 4C EB 8D 98 18 
8E60- 65 06 C5 1A FO 03 4C EB 
BE68- 8D 60 


Programme WRMA. OBJ 
Récapitulation 


#8E70. 9120 


8E70- DO 07 60 20 Bi 00 4C 70 
8E78- BE C9 57 DO 03 4C 95 &E 
8E80- C9 52 DO 03 4C {E 90 C9 
6E88- 4D DO 03 4C SA 90 C9 41 
8E90- DO El 4C 60 90 20 9B BE 
8E98- 40 B6 8E A9 00 8D 8B &C 
8EAO- 8D BC 8C A9 87 8D 6F 8C 
8ER8- A9 89 8D 90 8C A3 01 8D 
8EB0- 93 8C 20 14 91 60 AD 87 
8EBB- 89 CD 89 89 FO 03 4C 9B 
8ECO- 8F AD 88 89 CD 8A 89 FO 
8EC8- 03 4C 9B 8F AD 89 83 C3 
8ED0- 23 DO 06 A2 FF 8E 94 8C 
8ED8- 60 20 DF 8E 4C 4A BF F4 
8EEO- 09 AD 89 89 91 1C C8 AD 
8EE8- 8A 89 91 1C 85 08 20 DC 
8EFO- 90 AD 89 89 CD 3 8C DO 
8EF8- 1B AS 07 CD SD 8C DG i4 
8F00- A6 06 FO OA A9 00 18 6D 
8F08- 8F 89 CA DO F9 AA 20 B6 


HARRELET TRES ET MMEMER ES 


57 








& 
KT 
RE 
= 
ñ 
Lex 
pdf 
a 


— 
# LR 
VERS 


8F10- 8B 4C 3E 8F 20 22 8F A9 
8F18- 01 8D 93 8C 20 14 91 4€ 
8F20- 00 8F AD 89 89 8D 8B &C 
8F28- 8D JC 8C A5 07 8D 8C 8C 
8F30- 8D 9D 8C A9 87 8D &F 8C 
8F38- AJ 8A 8D 90 8C 60 20 22 
8F40- 8F A9 02 8D 93 BC 20 14 
8F4B- 91 60 EE 8C 89 AD BC 89 
8F50- CD 8B 89 FO 2A Eb 06 20 
8F58- FD 90 AS 08 8D 88 89 8) 
8F60- 8A 89 A9 00 8D 8B 8C 8D 
BF68- 8C 8C A9 87 8D 8F BC AJ 
8F70- 89 8D 9 8C A9: 02 8D 93 
8F78- 8C 20 14 91 4C 73 BE A9 
8F80- 00 85 06 8D 8C 89 E6 07 
8F8B- AS 07 C9 10 DO C9 EE 87 
8F30- 89 EE 89 89 A9 00 85 07 
8F98- 4C 57 8F AD 89 89 CD &D 
8FAO- 89 DO 22 AD 8A 89 CD & 
BFAB- 89 DO 1A 20 DF BE AD 87 
8FBO- 89 6D 89 89 AD 88 89 8) 
8FB8- 6A 89 A9 00 8D 8D 89 82 
8FCO- 8E 89 4C 62 8F AD 8A 89 
8FC8- 85 08 20 DC 90 AD 83 85 
8FDO- CD 9C 8C DO 3B A5 07 CD 
8FD8- 9D 8C DO 34 A6 06 FO 11 
8FEO- 20 E6 BF 4C Fi 8F A9 00 
8FE8- 18 6D 8F 89 CA DO F9 AA 
8FFO- 60 BD 87 8A 8D 30 03 F8 
8FF8- BD 87 8A 8D 31 03 20 DF 
9000- 8E AD 30 03 8D 89 89 AD 
9008- 31 03 8D 8A 89 4C 62 &F 


9010- 20 22 8F A9 01 BD 93 &C 
9018- 20 14 91 4C DC 8F Aà 07 
9020- B1 1C 85 18 CB Bi 1C 85 
9028- 08 20 DC 90 A5 18 CD 
9030- 8C DO 14 AS 07 CD 9D &C 
9038- DO OD A6 06 F0 03 20 E6 
9040- 8F 20 F3 8B 4C 73 8E AS 
9048- 18 8D 89 89 20 22 8F A9 
9050- 01 BD 93 8C 20 14 91 4C 
9058- 3A 90 20 00 8F 4C 73 BE 
9060- 20 9B 8E AD 8D 89 DO 18 
9068- AD 8E 89 DO 13 A5 18 8D 
9070- 89 89 8D 8D 89 A5 08 60 
9078- 9h 29 0D € 09 4 62 &F 
9080- A4 0B AD 8E 89 85 0B 20 
9088- DC 90 84 08 AD 8D 83 CD 
9090- 9C 8C DO 1C A5 07 CD 9D 
9098- 8C DO 15 A6 06 FO 03 20 
90A0- EG BF AS 18 9D 87 8A EB 
90n8- A5 08 9D 87 BA 4C C1 
90B0- AD 8D 89 20 25 8F A9 0! 
90B8- 8D 93 8C 20 14 91 4C GB 
90C0- 90 AD 8D 83 20 25 &F AJ 
90CB- 02 8D 93 8C 20 14 91 RS 
9000- 18 8D 8D 89 A5 0B 8D BE 
90D8- 89 4C 62 8F A2 00 86 CE 
90E0- 86 07 A2 04 2A 26 06 CA 
90E8- DO FA A2 04 AS 08 6A 66 
90F0- 07 CA DO FA A2 04 18 66 
90F8- 07 CA DO FB 60 A2 00 86 
9100- 08 A2 04 66 07 66 98 CA 
9108- DO F9 A2 O4 66 06 66 08 


9110- CA DO F9 60 A9 8C A0 87 
9118- 20 D9 03 A9 02 8D 97 &C 
9120- 60 


Programme VAR. OBJ 
Récapitulation 


+8B47, BC3E 


8B87- A0 

8B88- 00 84 FF AO Ci 84 FC A5 
8B90- 69 85 FD A5 6A 85 FE 60 
8B98- A0 00 À5 FA Di FD DO 07 
8BAO- C8 Bi FD C5 FC FO 0E À 
8BAB- FD 18 69 07 85 FD 9 E8 
8BBO- E6 FE 4C 98 &B 60 20 87 
8BB8- 8B 20 98 8B C8 Bi FD 85 
8BCO- FB 9D 87 8A DO 04 E8 4C 
8BCB- E2 8B EB CB Bi FD 85 EE 


-BBDO- C8 Bi FD 85 EF AO 00 B1 


8BDB- EE 9D 87 8A EB CB C4 FB 
8BEO- DO F5 AS FF CS F9 FO OA 
8BEB- EG FF E6 FC 20 8F 8B 4C 
8BFO- B9 4B 60 20 87 BB ED 87 
8BFB- 8A 85 FB EB C9 00 FO 1A 
8CO0- AS 6F 38 ES FB 85 6F A5 
8C08- 70 E9 00 85 70 A0 00 BD 
8C10- 87 8A 91 6F E8 C8 C4 FB 
8C18- DO F5 20 98 6B C8 A5 FB 
8C20- 91 FD FO OA C8 A5 6F 91 
8C28- FD C8 AS 70 91 FD A5 FF 
8C30- C5 F9 FO OA E6 FF EG FC 
8C38- 20 BF 8B 4C F6 8B 60 


Message aux créateurs de logiciel 


Nous allons bientôt commercialiser des programmes en plus de la revue Pom's, la rémunération des auteurs 
s’effectuant selon le principe des droits d'auteur. 


Bien entendu, les programmes destinés à ce mode de distribution doivent être des produits finis, autant par la 
qualité des programmes que par celle de la documentation et par l'environnement visuel et sonore. 


Nous sommes prêts à anal 
Envoyez-nous vos contributi 


Pseudo-opcodes 


de divers assembleurs 


Olivier herz 


À la demande de nombreux lecteurs nous publions un 


yser vos propositions et à vous aider à transformer des idées en produits logiciels. 
ons ; nous vous aiderons à diffuser ces programmes. 





petit tableau qui indique brièvement le rôle des principaux pseudo- 


opcodes (directives) de divers assembleurs pour l'Apple , ce qui permettra de traduire d'un assembleur à l’autre les 
programmes que nous publions. Nous avons mis dans notre tableau: 6 Character Label Assembleur de Microproducts (le 


premier assembleur sorti sur Apple), Lisa 2.5 de On Line Systems (qui est une amélioration de Lisa 1.5), Apple Tool Kit 
Assembleur de Apple Computer et ALDS (Assembly Language Development System: assembleur 6502, 8080 et Z80, qui 
fonctionne sous CP/M) de Microsoft. Nous n’avons malheureusement pas mis le Big Mac de Call Apple, dont nous 


LÉErÉRETET] er 
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n'avons pas le mode d'emploi, mais il ressemble beaucoup au Tool Kit. Il va sans dire que ce qui suit n’est pas exhaustif, 
ni au point de vue des directives (surtout pour ALDS!!), ni au point de vue des assembleurs et que ce n’est en aucun cas 
un mode d'emploi résumé de ces assembleurs. 


INSTRUCTIONS GENERALES 










ORG [exp] fixe l'ORiGine du programme objet 
OBJ [exp] fixe l’origine du code OBlet généré 
PHS [exp] change provisoirement l'ORG 

DPH termine une section de code suivant un PHS 
END indique la fin du programme source 
[label] EQU [exp] initialise la valeur d’un label 
idem, mais [exp] entre $00 et $FF (Page Zéro) 
[label] LET [exp] permet de réassigner un label 


INSTRUCTIONS POUR L'ASSEMBLAGE 
INCLUDE 





ICL [nomfic] chaîne un fichier; labels conservés 

CAL [labell...] passe des labels à un fichier ”linké” 

ENT [label1...] récupère les labels passés par CAL 

DCM [cmd DOS] exécute la commande à l'assemblage 
PAU crée une erreur forcée à l'assemblage 

PAG envoie CTRL-L à l'imprimante 

EJECT [exp] fixe la taille des pages pour imprimer 

TTL string” envoie CTRL-L et imprime le titre 

TITLE [titre] met un titre en haut de chaque page 

SKP [exp] saute exp lignes au listing 

REP [exp] répète exp chrs. au listing (défaut:x) 

CHR [caractère] change le chr. par défaut de REP 

LST crée un listing à l'assemblage 

NLS ne crée pas de listing à l’assemblage 

LST ON ou OFF crée un listing ou non à l'assemblage 
DSECT réserve de la place sans l'afficher 

DEND annule le DSECT 

NOG: on n'affiche que 3 octets de code pour HEX, ASC... 
GEN annule NOG 


INSTRUCTIONS DE STOCKAGE DE DONNEES 










































DFB [exp] stocke l’octet bas de l'expression 
HBY [exp] stocke l’octet haut de l’expression 

DDB [exp] stocke une expression octet haut puis bas 
EQD [exp] stocke une adresse (poids faible d'abord) 
HEX [octets] stocke des données hexadécimales 

.DA [exp] : hybride de ADR, BYT et HBY 

ASC ‘string” stocke une chaîne ASCII (bit haut = 1) 
ASC string’ stocke une chaîne ASCII (bit haut = 0) 
MSB ON ou OFF dit si le bit haut = 1 ou 0 avec ASC 
cf ASC, mais longueur stockée avant la chaîne 

cf ASC, mais bit haut du dernier octet inversé 

DCI ‘string’: bits hauts = 0 sauf le dernier 

INV ‘string” ou ‘string : caractères écran INVERSE 
BLK ‘string” ou ‘string’: caractères écran FLASH 
DS [exp] permet de réserver une place de exp octets 


ASSEMBLAGE CONDITIONNEL 












DO [exp] n’assemble que si l'expression est vraie 
ELSE assemble quand l'expression du DO est fausse 
FIN indique la fin de l’assemblage conditionnel 


AUTRES DIRECTIVES 


JF DO DO 
EL ELSE ELSE 
FI FIN FIN 








BGE [exp] Branch if Greater or Equal = BCS 
BLT [exp] Branch if Less Than = BCC 
BTR [exp] Branch if TRue = BNE 
BFL [exp] Branch if FaLse = BEQ 
EOR [exp] eXclusive Or = EOR 

LISA assemble aussi les codes de l’interpréteur SWEET-16 






SWEET16 
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SANS 


MICROTELEX 


VOTRE MICRO N'EST QU'UN OROIMATEUR 





Communication interface 
2, place d'Aligre - 75012 Paris 


Tél. 341.85.85 - Télex 214254 INTFACE 
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La PROM P5A désassemblée 


Thierry Le Tallec 


Pour tous ceux qui désirent en savoir un peu plus sur le routine contenue dans la PROM P5A du contrôleur, désas- 
fonctionnement du DOS 3.3 et sur ce qui se passe dans la semblée en termes (comprenez ‘’étiquettes’”’) compréhensi- 
carte contrôleur de leur lecteur de disquette, la liste don- bles et commentée par l'auteur de ce décryptage. Nous la 
née ci-après devrait s'avérer utile. Il s'agit en effet de la livrons en l’état à vos talents d'analystes. 








D HAHHAHHHHHHNHEE : 47 BNE BLDTABLI 

2 PRON P5A Hg Mas 8 TYA 

3 + désassemblée # 49 STA $0356,X 

4 * par + ei) INY 

S+7, Le Tallec # Ji BLOTABL2 INX 

GE HAHEHEHEHEHEHERE 92 BPL BUILDTBL 

7 EX 

B+x 05/08/82 % + Calcul du numéro du slot par analyse de la pile # 
g 5 | 
10 + Première routine a être exécutée lors dû Boot, % JSR IORTS # 
11 # Elle est appelée par DR£6 ou C6006 ou 6 cirl-?. 57 TSX # 
12 58 LDA STACK, À ” 
13 ORG  $C600 59 ASL 53 
14 60 ASL #4 
15 BUFADR EQU 526 6i ASL 52 
16 SLOTNUM EGQU $2B 62 ASL Fe 
17 TEMP EQU $x 63 STA SLOTNUM Éé 
18 SECTOR EQU $3D 64 TAX É 
19 TRACKRD EQU $40 65 

20 TRACK EQU $41 66 # Initialisation du materiel. 

A STACKX EGU $100 67 

22 PHASEOFF EQU $CO80 68 LDA DRVRDM,X :raz du latch de lecture. 

23 PHASEUN EQU $C08: 69 LDA DRVRD,* :;passe en mode "lecture". 

24 MOTORON EQU $C089 70 LDA DRVOEN, X :choisit le drive 1. 

25 DRVOEN EQU $C08n 71 LDA MOTORON, X :#et le moteur en route. 

26 DRVRD  EQU #CO8C 72 

27 DRVRDM EQU #COBE T3 # Ramene le bras en piste zéro par 80 #arches-arrière, 

28 HAIT EGU $FCAB 78 

29 IORTS  EQU $FF58 T5 LDY £$50 

3 76 TRACKO LDA PHAGEDFF, X 

3 * Construction d’une tale en #356-$3FF pour T7 TYA 

32 + convertir les nibbles en mots de six bits ($#00-$3F). 78 AND £$03 

ns! 79 ASL 

h LDX £$20 80 ORA SLOTNUM 

ke LDY £$00 8i TAX 

% LDX £$03 82 LDA  PHASEON, X 

37 BUILDTBL STX TE 83 LDA £$56 

3 TXA 84 JSR AIT 

39 ASL 85 DEY 

40 BIT TEMP 86 BPL  TRACKO 

4i BEG BLDTABL2 87 

42 ORA TEMP 88 # Prépare à lire le secteur 0 de la piste 0 en $800. 

4 EUR £$FF 89 

4 AND £$7E 90 STA BUFADR 

45 BLDTABL{ BCS BLDTABL2 gi 

46 LSR 92 
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33 LDA £$08 
% STA BUFADR+I 
s 


9% * Cette routine lit le secteur indiqué en $3D de la piste 


97 *# indiquée en $41, à l'adresse rangée en $26-$27. 
98 

99 READTREK CLC 

100 

101 + Attend DS AA 96 si carry = 0, 

102 # attend DS AA AD si carry = 1. 


105 

104 RDTRACK1 PHP 

105 WAITDATA LDA DRVRD, X 

106 BPL  WAITDATA 

107 WAITI EDR £$D5 sattend D5 AA % 
108 BNE WAITDATA 

109 WAIT2  LDA DRVRE, X 

110 BPL WAITZ 

111 CMP  £$hA 

112 BNE MAITI 

113 NOP 

114 WAITS  LDA DRVRD,X 

115 BPL MAITS 

116 CMP €$9% 

117 BEQ  ADRELOCK 

118 PLP 

119 BCC  READTREK 

120 EUR £$AD si trouvé D5 AA AD et souhaité, 
121 BEQ DATABLOC alors saute en $C66. 
122 BNE  READTREK 

123 

124 *# Analyse du champ “adresse" 

125 


126 ADRBLOCK LDY £$03 

127 ADRBLOC1 STA TRACKRD 

128 ADRBLOC2 LDA DAVRD,X attend le premier nibble 
123 EPL  ADRBLOC2 


13 ROL 

131 STA TEM 

132 ADRBLOCS LDA DRVRD,X :attend le second nibble 
133 BPL  ADRBLOCS 

134 AND TEMP sreconstitue l’octet 
135 DEY srecommence 3 fois 

136 BNE ADRBLOCI : (volume, piste, secteur) 
137 PLP 

138 CMP SECTOR :c'est le bon secteur ? 
139 BNE READTRCK :non =) recommence 

140 LDA TRACKRD ;récupère le numéro de piste 
14i CMP TRACK c’est la bonne piste ? 
142 BNE  READTRCK snon =) recommence 

143 

144 # Lecture du champ "données" 

145 

146 BCS RDTRACK1 :va attendre DS AA AD 
147 


148 *# Lecture des 85 premiers nibbles en $300-$5355 
149 

150 DATABLOC LDY £86 

151 DATABLI STY TEM 


152 DATABL2 LDY DRVRD,X 


153 BPL. DATABL2 
154 EUR $02D6,V 
155 LDY TEMP 
156 DEY 

157 STA  $0300, V 
158 BNE  DATABLI 
159 


160 + Lecture des 256 nibbles suivants en (526-627) 


162 IC6BA  STY TEMP 
163 IC6BC  LDY DRVRD,X 


164 BPL  ICGBC 
165 EUR 50206, Y 
166 LDY TE 

167 STA  (BUFADR) ,V 
168 INY 

169 BNE IC6BA 
170 


171 # Lecture et vérification du checksum 
172 


173 IC6CB LDY DRVRD,X 
174 BPL  ICECB 
175 EDR $02D6, Y 
176 IC6DS BNE READTREK 
177 


178 + Décodage des minbles ("cenibhilize") 
179 

180 LDY #£$00 

181 IC6D7  LDX £$56 

182 IC6D3  DEX 


183 BMI IC6D7 
184 LDA  (BUFADR) ,\ 
185 LSR 50300, X 
186 ROL 

187 LSR 50300, X 
188 8OL 

189 STA  (BUFADR) ,Y 
190 INY 

191 BNE 1C6D9 
192 


193 # Incrémente le numéro du secteur à lire et l’acresse 


194 * du buffer où écrire (poids forts), 


195 

136 INC  BUFADR+I 
197 INC SECTOR 
198 


199 # Lit un autre secteur s’il y a lieu (cas de "RASICS") 
200 *# sinon, saute directement en $801 pour continuer le boot 


20! 

202 LDA SECTOR 

205 CMP  $0800 

204 LDX SLOTNUN 

205 BCC ICEDS 

206 JMP $801 

207 

208 # NOTE: Le moteur tourne toujours, X = siot x ‘6, 
209 # $8FE = prochaine page à écrire 

210 * $8FF = nombre de secteurs à lire 
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Des logiciels de jeu, fous, fous, fous. 

Des logiciels de formation passionnants. 

| 48 logiciels toujours en français. 
Des logiciels aux couleurs fantastiques grâce à la 
haute définition. 
Des logiciels vendus dans les magasins FNAC et 
dans les Boutiques Informatiques. 
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Cartels et Cutthroats. 

Vous êtes le big boss d'une 
grande société. 

Vous décidez des alliances à 
conclure ou de la manière de 
dominer le marché; des nouvelles 
sociétés à monter. 

Etes-vous capable de prendre les 
bonnes décisions ? Et de devenir 
un grand manager ? 


Attaque Rouge et Forces 
Rebelles. 

L'Armée Rouge attaque et va 
dévaster notre pays. 
Saurez-vous défendre trois villes- 
clé qui ne doivent en aucun cas 
tomber aux mains de l'ennemi ? 
Des forces rebelles ont envahi 
une ville stratégique. Vous com- 
mandez des forces qui doivent 
reprendre la ville : saurez-vous 
écraser les rebelles 2 


Contrôleur Aérien. 

Vous êtes devenu contrôleur 
aérien. 

Vous devez guider 26 avions à 
hélice ou à réaction. Saurez-vous 
les faire décoller, changer d'alti- 
tude ou de direction, atterrir 2 
Aurez-vous assez d'adresse pour 
éviter le crash toujours possible ? 


Genetic Drift. 

Vous êtes le maître du monde, 
par des manipulations généti- 
ques vous pouvez créer des 
races, faire muter des espèces. 
Saurez-vous toujours éviter que 
les nouvelles races et les nouvel- 
les espèces échappent à votre 
contrôle ? 
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4 Be 
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“CAMPAGNES 
NAPOLEONIENNES 
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Les Tigres dans la Neige. 

(La Bataille des Ardennes) 

C'est la dernière attaque déses- 
pérée des forces d'Hitler. 

Dans les Ardennes glacées et 
enneigées, les Panzers Tigres fon- 
cent et surprennent les forces 
américaines. 


Saurez-vous arrêter les Panzers 
Nazis 


l'Alliance Rompue. 

la planète Osgort possède des 
forêts sauvages, des lacs bleus 
transparents et une atmosphère 
vivifiante. 

Plusieurs tribus y vivent, les 
Centaures, les Elfes, les Hozagits, 
les Zorgs qui ressemblent aux 
humains. 

Tous ces gens vivent en paix. 
Etes-vous capable de rompre 
l'alliance 2 


Les campagnes 
Napoléoniennes. 

Vous allez recréer les grandes 
batailles de la fin de l'Empire de 
Napoléon 1°. 

Pourrez-vous inverser le résultat 
de l'histoire, faire apparaître 
Blücher, battre Wellington. 

Et faire de Waterloo une grande 
victoire ? 


Opération Apocalypse. 

C'est la Deuxième Guerre Mon- 
diale. Vous avez le choix entre 

4 scénarios d'opérations. 

Vous devez dresser des plans de 
bataille, tenir compte de vos 
adversaires, du terrain, des 
circonstances. 

Serez-vous un grand chef 
militaire ? 











Le Basic Expliqué. 
sé Enfin un cours qui vous enseigne 


or" 
APPLESOFT vraiment le langage de l'ordina- 


ES teur Apple. 
Apprenez le fonctionnement de 


l'ordinateur et comment faire vos 
propres programmes. 


Savoir Ecrire. 

Les jeunes obtiendront des résul- 
tats rapides à l'aide de dessins et 
d'effets sonores distrayants. 
Savoir Ecrire est un excellent 
programme d'introduction à 
l'ordinateur. 


Savoir 
écrire 


Savoir Compter. 
Un excellent programme d'intro- 
duction pour les jeunes. En même 
temps défi et source de plaisir. 
Ce programme est divisé en 

van huit modules pour apprendre à 
EDUWARE compter, à additionner et à 
soustraire. 


Savoir compter 





ÉSA 
CL 


TS \ 
N PSN 


"ro NÇOIS 
La 


L'AGENCE AUX CLIENTS 
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Prénom ___ : 


: L : Age 
Adresse __ —_— 











| Marque de mon ordinateur . CIEL DIEU 
Qi Editions Ciel Bleu 
| - Société Sofel Informatique 

P 20, rue Bapst, 92600 Asnières. Tél. : (1) 790.23.60 
| Importateur exclusif des produits Computerre 
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LE FUTUR EN MICRO 
INFORMATIQUE ! 










































































































































































Les disquettes 


Si vous envisagez l'achat d’un lecteur 
de disquettes, pourquoi ne pas vous 
laisser tenter par les nouvelles unités 
dites ”’half-size” ou ”’slim-line” ? To- 
talement compatibles avec l'Apple, 
elles présentent l'avantage de n’occu- 
per qu’un tiers environ de la hauteur 
d'une unité normale. PENTASONIC 
propose des mécaniques de marque 
Nippon (avec un nom comme cela, 
pas de doutes possibles sur l’origine 
géographique !) au prix de 2699 FF 

sans contrôleur (contrôleur 
compatible Apple). NDLR : tous les 
prix de cette rubrique sont indiqués 
TTC, sauf indication contraire. 


Si vous patientez encore quelques 
mois, vous aurez alors la possibilité 
d'acheter des lecteurs dans la gamme 
3 pouces (3”, 31/2, 3.9”... puisqu'il 
ny à pas encore de standard re- 
connu par les différents construc- 
teurs). AMDEK, par exemple, pro- 
pose des lecteurs 3” compatibles 
Apple Il avec une capacité de 286K 
pour un prix de $299. HAYTECH 
propose avec le sytème CYBORG un 
lecteur 3 pouces de 1.2 Mégaoctets, 
qui inclut son propre système d’ex- 
ploitation. Le prix de base du lecteur 
est de 5699 F mais il semble qu’il 
faille prévoir interfaces et modules 
d'extension en plus. En outre, les 
CYBORGs ne sont pas encore dispo- 
nibles sur Apple. 


Les imprimantes 


L'imprimante TOSHIBA QL4000 est 
une imprimante à aiguilles hors du 
commun. De par sa qualité d'impres- 
sion (tête à 24 aiguilles de 0.2 mm 
de diamètre), elle entend s'imposer 
dans le domaine de l'impression 
qualité courrier”. Ses atouts face 
aux imprimantes à marguerite tien- 
nent essentiellement à sa rapidité : 
100 cps (contre 40, vitesse moyenne 
habituelle des imprimantes à margue- 
rite) et aux possibilités de jeux de ca- 
ractères (écriture élargie, espace- 
ments variables..). Elle est bien 
entendu utilisable pour les listings (vi- 
tesse 192 cps) et pour le graphique. 
Son prix (18000 FHT) la classe net- 
tement du côté des imprimantes à 
marguerite. La QL4000 est importée 
par M3C. 


Le domaine des imprimantes couleur 
est en rapide évolution. Après la 
technologie à impact sur ruban multi- 
colore, voici les imprimantes à jet 
d'encre. Elles disposent de 3 ou 4 ré- 
servoirs d'encre (cyan, magenta, 
jaune et noir), permettant par combi- 
naison d'obtenir les autres couleurs. 
Parmi les modèles disponibles, la 
Canon A-1210 attire immédiatement 
l'attention. Alors que les autres impri- 
mantes sont vendues à des prix va- 
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riant entre $5.000 et $12.000, la A- 
1210 vaut $795 et est destinée au 
marché des ordinateurs individuels. 
Ses performances sont tout à fait ho- 
norables : 40 cps et une résolution 
de 30 points par centimètre. Nul 
doute qu’elle aura beaucoup de 
succès. 


Synthèse vocale et 
musicale 


Depuis la carte Supertalker de Moun- 
tain Hardware, la première à donner 
la parole à l'Apple, jusqu’à la Mo- 
ckingboard de Sweet Micro Systems, 
l’une des dernières sorties, de nom- 
breuses cartes et réalisations ont vu 
le jour. Les circuits utilisés dans les 
applications de coût modéré sont gé- 
néralement des circuits de génération 
de phonèmes. Malheureusement, en 
raison de la nationalité des fabricants 
de semi-conducteurs, la génération 
de phrases en français à partir de 
phonèmes anglais n’est pas des plus 
réussies. 


Le CNET (Centre National d'Etudes 
des Télécommunications) a mené 
depuis plusieurs années de nombreu- 
ses recherches appliquées à la syn- 
thèse de parole. Le résultat, fruit de 
la collaboration entre les chercheurs 
du CNET et la société AML s'appelle 
Prosit 4000. C’est un boîtier qui se 
connecte à une interface série et qui 
génère une sortie vocale d’après le 
texte envoyé. Il contient 108K de 
mémoire dans laquelle sont inscrites 
les règles phonétiques du français et 
les bibliothèques de routines. Le Pro- 
sit 2000 est une version ’’dégradée” 
qui se limite au traitement de voca- 
bulaire compressé, stocké par avance 
dans l'ordinateur. Prix approximatifs : 
6500 FHT pour le modèle 2000 et 
10500 FHT pour le 4000. 


Autre réalisation française, la carte 
Porte-Parole réalisée par Ediciel. But 
recherché : permettre la synthèse de 
texte (conversion directe du texte en 
parole) à un prix abordable. Le logi- 
ciel devrait être prêt au début de 
l'année prochaine. La carte existant 
déjà, elle a été commercialisée en 
avance avec pour seule application 
actuelle le langage Edi-Logo : Logo 
en français et doué de la parole (je 
n’ai pas pu identifier l’accent - pari- 
sien, marseillais, chtimi.. - mais une 
chose est sûre : ça ne ressemble pas 
à un texan parlant français !). Nous 
attendons donc avec intérêt les pro- 
chains programmes prévus pour cette 
carte. Carte Porte-Parole : 1395 F - 
Edi-Logo : 1490 F. 


Jean-François Duvivier 


Dans le domaine sonore et vocal, 
l'une des dernières cartes sorties 
s'appelle la Mockingboard. En fait, 
sous ce vocable se cachent 4 cartes 
différentes: Sound I, Speech I, 
Sound II et Sound/Speech I combi- 
nant des possibilités sonores et voca- 
les. Au point de vue parole, la puce 
utilisée est le SC-01 de Votrax, dont 
les qualités ne sont plus à démontrer. 
C'est le circuit utilisé par le Votrax 
personal speech system. Le côté so- 
nore est pris en charge par le AY- 
8910 de General Instrument, circuit 
que l'on retrouve un peu partout 
(cartes ALF, Vista, Arcade Board...) 
et qui permet la génération de musi- 
que (3 voies) et de bruitages (explo- 
sions, tirs, lasers). Mais le gros inté- 
rêt des cartes Mockingboard réside 
dans les accords passés entre Sweet 
Micro Systems (réalisateur des cartes) 
et les principales sociétés de création 
de logiciels de jeu, afin de permettre 
à ces dernières d'utiliser les possibili- 
tés de la carte. De nombreux jeux 
sont ainsi transformés par la présence 
d'une  Mockingboard : Thunder- 
bombs, Pie man, Zaxxon.… Au fait, 
connaissez-vous Zaxxon ? La préci- 
sion du graphisme et la rapidité 
d'évolution m'ont ébahi ! (je ne pen- 
sai pourtant plus que ce soit possi- 
ble...). Pour en revenir à notre oi- 
seau moqueur (mocking bird), je ne 
sais pas qui l'importe en France. 
Mais je pense qu’au SICOB, date à 
laquelle paraitra ce numéro de 
Pom's, vous pourrez certainement en 
voir (et en écouter) de nombreuses 
démonstrations. À titre indicatif, le 
prix américain de la carte 
Sound/Speech I est de $179. 


Les cartes 


Toujours plus dans le domaine des 
cartes mémoire! Macrotch présente 
Diskulator, une carte mémoire exten- 
sible de 64 à 512K. Legend de son 
côté introduit la S-Card (de 64K à 1 
Méga) que vous pourrez trouver chez 
BIP. 


Pour les mordus d’audiovisuel, signa- 
lons que la société Electrosonic 
commercialise le ”’Sustème 4000” 
permettant, à partir d’un Apple ou 
de tout autre ordinateur possédant 
une sortie série, la gestion de 24 pro- 
jecteurs de type Kodak Caroussel. Le 
programme ESCLAMP permet de 
composer très facilement le montage 
de diapositives en utilisant toutes les 
possibilités de ce tupe de projec- 
teurs : fondus à vitesse variable, scin- 
tillation, niveaux de lumière program- 
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mables. Il est bien entendu possible 
de synchroniser le programme avec 
le son grâce à l’utilisation d’une piste 
d'horloge générée par une carte hor- 
loge inclue dans l'Apple. J'ai eu l’oc- 
casion de voir une démonstration sur 
neuf projecteurs : le résultat est tout 
simplement époustouflant ! 


La carte Dumpling importée par SO- 
FITEC est une carte d'interface paral- 
lèle graphique haute résolution 
compatible sans changement de 
ROM avec de nombreuses impriman- 
tes du commerce (changement par 
switches). Une trentaine de comman- 
des, dont copie d'écran, rotation, in- 
version, double frappe, double for- 
mat, … 


Claviers 


La mode est aux claviers détacha- 
bles. Kevtronic par exemple propose 
son clavier KB-200 qui ressemble fu- 
rieusement à celui de l'IBM-OP. Cla- 
vier numérique, touches de fonc- 
tions, plus de 80 touches pour ce 
clavier détachable qui se branche à 
la place du clavier Apple IL Prix : 
$298. 


D-TACH de Innovative Micro Goo- 
dies est un clavier séparé pour Apple 
Il ou //e. Il utilise le clavier Apple 
existant qui est intégré dans un cof- 


fret muni d'un câble extensible. Prix : 
$98. 


PRO-100 de Amkey propose comme 
son nom l'indique un clavier de 100 
touches (à quand PRO-200 ?). Parmi 
les touches ajoutées : 18 touches de 
fonction, 25 touches de commande 
Basic et DOS (Catalog, Run, List, 
New...) et 22 touches Visicalc (Insert 
column, Delete, Replicate, Print..). 
Prix: $265 (pour Apple Il seule- 
ment). 


Enfin, Executive Peripheral Systems 
propose EPS Keyboard, clavier re- 
configurable par modules enficha- 
bles. Ces modules permettent d’avoir 
des touches de fonction préprogram- 
mées pour Visicalc, Applewriter II, 
Screenwriter IL Wordstar.… Prix: 
$349. 


Autres périphériques 


IDEN propose un joystick, modèle 
YT, compatible Apple II et //e, avec 
une manette à centrage automatique 
et deux boutons. Le tout pour 345 
FF, l’ensemble étant fourni dans un 
boîtier métallique robuste. 


Micro-processeurs 


Le sigle 6502 vous dit-il quelque 
chose ? Bien sûr, c'est le micropro- 
cesseur utilisé dans l'Apple. Mais 


voici que plusieurs fabricants de 
semi-conducteurs présentent un nou- 
veau circuit : le 65C02. Le ”C” in- 
corporé au milieu indique que la 
technologie utilisée est le CMOS, 
permettant une consommation très 
faible. Le 65C02 ne consomme envi- 
ron que 10% de ce que nécessite le 
6502. L'avantage est énorme pour 
les micro-ordinateurs portables (ali- 
mentation sur batteries) mais égale- 
ment pour des questions de fiabilité : 
moins de puissance consommée 
moins de chaleur et plus de fiabilité. 


Mais le principal intérêt du 65C02 ré- 
side dans ses caractéristiques logiciel- 
les: totalement compatible avec les 
instructions existantes du 6502, il 
permet d'en utiliser de nouvelles. 59 
nouveaux codes opération ont été 
créés. Ils se classent en deux parties : 


e de nouveaux modes d’adressage 
sur des instructions déjà existantes 
dans le 6502, tels que les modes 
indirects (sans indexation) et indi- 
rect absolu indexé. 


e de nouvelles instructions dont 
BBR (Branch on Bit Reset), BBS 
(Branch on Bit Set), BRA 
(BRanch Always), PHX (PusH X 
onto stack), PHY (PusH Y onto 
stack),PLX (PulL X from stack), 
PLY (Pull Y from stack), RMB 
(Reset Memory Bit), SMB (Set 
Memory Bit}, STZ (STore Zero), 
TRB (Test and Reset Bit), TSB 
(Test and Set Bit). 


Côté compatibilité, aucun problème 


. pour les possesseurs d'Apple /// et //e 


qui peuvent directement remplacer le 
6502 par un 65C02 et profiter ainsi 
des avantages de ce circuit. À noter 
que les nouvelles versions d’assem- 
bleurs prennent en compte ces nou- 
velles instructions. La dernière ver- 
sion de Merlin supporte toutes les 
instructions du 65C02. Les mises à 
jour de SC-Assembler et ORCA sont 
disponibles. 


Malheureusement, je n'ai cité plus 
haut que l'Apple /// et//e. Que se 
passe-t-il pour le II ? Il semble qu'il y 
ait des problèmes relatifs au séquen- 
cement interne et aux accès mémoi- 
res. Raison : le 65C02 est plus rapide 
et ne maintient pas les données assez 
longtemps sur le bus, ce qui provo- 
que en conséquence des pertes de 
données. Personne n’a encore trouvé 
de solution simple permettant d’utili- 
ser un 65C02 sur Apple IL. La solu- 
tion viendra peut-être des prochaines 
révisions du 65C02, permettant de 
résoudre ce problème. 


On peut penser que le 65C02 rem- 
placera le 6502 sur les nouvelles ma- 
chines. Peut-être verra-t-on une nou- 
velle révision du //e avec un 65C02, 
ce qui permettrait de diminuer le 








code (environ 10 à 15 %) et donc 
d'augmenter la rapidité. 


Ceux qui sont intéressés par le 
65C02 peuvent consulter l'excellent 
article de Roger Wagner page 199 
dans Softalk de juin 83, article qui 
fait le tour complet des possibilités du 
65C02. 


Logiciel 


Nous venons de voir arriver la nou- 
velle version de CX Multigestion 
(Controle X), CX Base 200 et CX 
Texte. Nous retrouvons le système 
de gestion de fichiers déjà analysé 
dans Pom's 5, avec des améliora- 
tions allant dans le sens de nos re- 
marques à cette époque, et avec une 
possibilité de traitement de texte 
(ligne par ligne). Il est possible d’ac- 
quérir séparément le traitement de 
texte, la gestion de fichiers ou la ver- 
sion 200 autorisant la gestion multifi- 
chiers. Enfin un produit bien de 
chez nous”, et en progrès par rap- 
port à la première version. 


KA vient de sortir la documentation 
en français du programme de gestion 
de fichiers Omnis, dont nous ferons 
certainement lanalyse un jour. 
Omnis fonctionne sur Il, //e, ///. Le 
prix, variable selon le matériel, est de 
l'ordre de 4140 FF. Nos seuls pro- 
blèmes pour parler de ce programme 
sont le manque de temps et de 
place ! 


Informations 


Le magazine américain Fortune pu- 
blie tous les ans la liste des 500 plus 
grandes entreprises américaines. 
Apple établit un nouveau record en 
faisant son entrée dans la liste (en 
411ème position) seulement sept ans 
après sa création. À noter que Mike 
Markkula, jusqu'alors président d’Ap- 
ple, vient de laisser la place à John 
Sculley, qui présidait auparavant 
Pepsi-Cola. Quant à IBM, tout va 
pour le mieux. La firme passe de la 
8ème à la 6ème place. A titre de 
comparaison, le total des ventes 
d'Apple durant les 6 premiers mois 
83 représente à peu près la moitié 
du bénéfice d'IBM pour le premier 
trimestre ! 


Nous vous avions annoncé une ana- 
lyse du Golem, qui n’a pu être réali- 
sée pour des raisons compréhensi- 
bles. Apple à gagné un jugement 
interdisant la présentation du Golem 
à MicroExpo et sa vente, jusqu’au ju- 
gement définitif. La preuve a été ap- 
portée que plus de 99% du contenu 
des ROM était identique, ce qui est 
Le excellente raison de compatibi- 
ité.… 


"Music Programs for the Apple 
Computer” est un catalogue rassem- 
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blant les programmes et les cartes 
musique sur Apple: 123 program- 
mes, 13 cartes, 46 fabricants. Dis- 
ponible pour 5$ (port) auprès de 
Denis C.Moreen-College of Notre 
Dame - Department of Music - Bel- 
mont CA 94002. 


La troisième édition de ‘The Blue 
Book for the Apple Computer” de 
WIDL Video Publications est parue. 
Ce catalogue fait le point de tous les 
produits destinés à l'Apple. Les chif- 
fes sont éloquents: 914 pages, 
4600 produits, 720 adresses de fabri- 
cants. Heureusement, plus de 100 
pages d’index (mots-clés, listes alpha- 
bétiques, par firmes...) permettent de 
sy retrouver. Prix $24,95, 


Avis aux concepteurs de systèmes : 
le langage C est maintenant disponi- 
ble sur Apple grâce au compilateur 
Aztec C II de MANX. Prix non men- 
tionné. 


Ediciel est un GIE (Groupement d’In- 
teret Economique) entre Matra et 
Hachette qui commercialise des logi- 
ciels et matériels sur Apple. Une pre- 
mière vague de 5 programmes et 
une carte (la carte Porte-Parole dont 
nous vous parlons plus haut) est sor- 
te en mai. Des jeux (Galaxie-L, Tri- 
jeu et Naja), une version française et 


sonore de Logo : Edi-Logo et Maths 
1, la première disquette d’une collec- 
tion d'exercices dirigés par ordinateur 
et destinés aux candidats au Bacca- 
lauréat. Maths 1 s'intéresse plus par- 
ticulièrement aux logarithmes et ex- 
ponentielles, ainsi qu'aux formes 
indéterminées et limites.  Ediciel 
compte inscrire à son catalogue une 
vingtaine d’autres produits d'ici la fin 
de l'année. 


Adresses 


AMDEK Corp. - 2201 Lively Blvd - 
Elk Grove Village IL 60007 


Amkey - 202 Ballardvale St - Wil- 
mington MA 01887 


AML - 10 rue Lionel Terray - 92500 
Rueil-Malmaison - 749.14.00 


BIP - 22 rue Joseph Dijon - 75018 
Paris - 255.44.63 


Controle X - Tour Maine Montpar- 
nasse - 33 avenue du Maine - 75755 
Paris Cedex 15 - 538.98.87 


Ediciel - Rue J.-Pierre Timbaud - 
BP 66 - 78390 Bois d’Arcy 


Electrosonic - distribué par Techni- 
tome - 118 rue de Crimée - 75019 
Paris - 202.37.13 


Executive Peripheral Systems - 
800 San Antonio Road - Palo Alto 
CA 94303 


HAYTECH - 68 Bd de Port-Rovyal- 
75005 Paris - 354.86.66 


Innovative Micro Goodies - 
34732 Calle Fortuna - Capistrano 
Beach CA 92624 


IDEN - 34 bis rue Sorbier - 75020 
Paris - 358.44.35 


KA - 212 rue Lecourbe - 75015 
Paris - 533.13.50 


Kevytronic - PO Box 14687 - Spo- 
kane - Washington 99214 


MANX - Box 55 - Shrewsbury NJ 
07701 * 


M3C - 12, place de Seine - La Dé- 
fense 1 - 92400 Courbevoie 
774.57.80 


Pentasonic - 5 rue Maurice Bourdet 
- 75016 Paris - 524.23.16 


SOFITEC - 207 rue Gallinéni - 
92100 Boulogne - 605.88.78 


Sweet Micro Systems - 150 
Chestnut Street - Providence RI 
03 


WIDL Video Publications - 5245 
West Diversey - Chicago IL 60639 
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Soulignement 


et puissant sur Apple Il et Apple // e. 
Des menus clairs et simples. 


En & Une centaine de commandes puissantes, faciles 
[ | D à utiliser. 
| D } S'adapte à toutes les imprimantes matricielles ou 
um à marguerite, et cartes 80 colonnes. 

Permet l'intégration de tableaux créés par 
D LD VISICALC®, MAGICALC®, MULTIPLAN®, etc. 
= _ Démonstration chez votre revendeur Apple Utilise 
OH D Prix HT. 2 000 F (TTC 2 372 F) toutes les fonctions 


des imprimantes 






Justification 
à droite 







Caractères 
condensés 
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Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires, 





ÉTUDIE 


e opportunité d'utilisation de l’outil micro-informatique 


e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 





FORME e formation à l’utilisation de la micro-informatique 


REALISE e réalisation de programmes à la demande 
LIVRE 


e livraison de systèmes clés en main, avec des progiciels de 


GESTION DE STOCK, PAYE, COMPTABILITE. 
Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à l'homme, et non l'inverse. 
+: L'outil micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
1 dans des conditions conviviales. 


Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 


logma s.a. Centre La Châtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél. : (3) 918.13.07 


MODENMIS TELSAT 


L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 





TELSAT 440 TELSAT 640 
Modem 300 bit/s full duplex Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


SATELCOM international 69-71,rue du CHEVALERET 75013 PARIS 


Tél. 58414 75 





Telex 204120F 


SEE 
D 0 + M 
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Jonglez avec votre catalogue 


Le petit programme ci-dessous lit 
votre catalogue et le place dans un 
tableau de chaînes de caractères. La 


5 et la ligne 60 ci-dessous, on obtient 
une liste en 3 colonnes des fichiers 
mémorisés sur une disquette. 


Olivier Herz 


Contenu des variables 


ligne 10 réalise l’initialisation indis- A$(0) : longueur de 19 caractères. 








pensable : il est préférable de la met- NDLR : ne pas utiliser ce programme Position Contenu 
tre au tout début du programme. At- quand le Program Line Editor (PLE) 1 CR (retour chariot) 
tention: la variable N doit être est actif. 3-13 CR 
supérieure au nombre maximum de 14 espace 
do. _. re sous peine S INPUT "NOM DE LA DISQUETTE : “:NOM na DER de volume 
ÿ 19 CR 
Les lignes 30 et 40 doivent être exé- : 
atées chaque fois qu’un catalogue A$(1) pour 1>0 : 38 caractères. 
est lu. Les lignes 20 et 50 ont été 60 B$ = " Position Contenu 
placées là à titre de démonstration. Ms PRINT D$"PR#1": DRINT 1 espace ou * 
*DISQUETTE : ‘:NOMS: FOR J = 1 2 T, B, I'ou À 
À partir de ce programme, chacun T0 1 + 1 STEP 32 FOR K = G TO 3 espace 
peut constituer le programme de son s à ARE 4-6 taille 
choix et se créer un programme de 23 PRINT LEFTS (A$(J + K) + 7 espace 
MENU personnalisé en Applesoft B$,26):: NEXT : BRINT * 1 NEX 8-37 nom du fichier 
sans effort. Ainsi, en ajoutant la ligne T 38 CR | 
Programme CATALOG — TABLEAU SAS = A$ + * “3 NEXT : FOR I = N | 
TO 1 STEP 1:AS$SCI) = AS + AS: N | 
EXT :AS(O) = AS + ““:A = PEEK (1 | 
10 N = 100: DIM ASCN):AS = “300:38 48 84 07) + PEEK (108) * 256 + 8: POKE 
FD AO O0 S1 FE E6 FE DO O2 E6 FF 254, PEEK CA): POKE 255, PEEK (A | 
68 A4 FD 60 A9 AO 60 N D823G*: F + 1) Ex | 
OR I = 1 TO LEN (CAS): POKE S11 + 49 DS = CHRS (4): PRINT DS'"NOMONCIO‘": P Foi | 
I, ASC € MIDS (AS,I,1)) + 128: N OKE 54,0: POKE 55,3: POKE 56,18: tai | 
EXT : POKE 72,0: CALL - 144 POKE 57,3: CALL 1002: PRINT DS"CA bi | 
20 TEXT : HOME : PRINT “ENTREZ VOTRE DI TALOG‘": PRINT DS"PR#O'": PRINT Ds" E | 
SQUETTE ET‘: PRINT ‘" APPUYEZ SUR IN#O" El 
UNE TOUCHE": POKE - 16368,0: WAI | 50 PRINT AS(O):: FOR I = 1 TO N: IF MI Er 
T - 16384,128: POKE - 16368,0 DS CAS(I),2,1) < > ‘“* * THEN PRI Ér 
30 A = FRE (O):AS = ““: FOR I = 1 TO 19 


me 
NT AS(I):: NEXT ra 
Cr L 


DISQUETTE : Disquette Pom’s Numéro 9 
003 HELLO *B O11 HELLO1 HELLO2 Ë 
004 MENU *B OO02 BLOAD TEXT MO 

006 M1 006 M2 M3 

006 M4 006 MS ME j 
006 MENU6S 006 M7 HCT.OBJ 
O11 UFS 002 SUPER PRINT SUPER PRINT DEMO 
011 SUPER PRINT.S 003 EDITEUR-HGR DESSINATEUR-HGR 

013 PROGR.COMPOS 034 PROGR.EDIT EDIT 

002 COMPOS 004 PROGR4BK CATALOG->TABLEAU 

007 LI-TEXTE 012 GRAFTEXT.S GRAFTEXT 

005 FRE(2) 013 RIA.SCE RIA.OBJ 
021 WRMA.SCE 007 WRMA.OBJ VAR.SCE 
004 VAR.OBJ O04 INIT TEST.RIA.WRMA.VAR 
004 LIT-TF O15 PROM PSA.S CAPTURE 

005 CREALIST 004 LISTING PUZZLE 

003 TRANS 002 ONERR-128 ADAP-PUZZLE-COULEUR 
002 BASIC-PASCAL 007 BASPAC.0BJ1 MOVEOQ 

044 SAISIE.TEXT 004 FONDU ENCHAINE.S FONDU ENCHAINE 

034 ERGUN.PIC O04 WAIT 


A 
B 
B 
B 
A 
A 
B 
A 
B 
B 
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Courrier des lecteurs et des clubs 


Olivier Herz 


Messages 


J'ai été très intéressé par l'article 
Graphique, quand tu nous tiens … 
du Pom's 7, et je me permets de 
proposer les modifications suivantes 
pour une imprimante MX-82IIIF/T. 
D'abord, en insérant la ligne 6025 
D=0, on évite de conserver la 
commande de double format si une 
autre impression est lancée. 


Si l’on supprime la ligne 5200, on 
augmente le nombre de possibilités, 
en particulier on peut imprimer soit 
la page 1, soit la page 2, soit une 
combinaison logique en première co- 
lonne à un seul exemplaire : il suffit 
pour cela d'ajouter la ligne 5555 IF 
P=2 THEN 5580. 


Enfin, avec les modifications ci-des- 
sous, on peut imprimer cette pre- 
mière page n'importe où horizontale- 
ment : 


5342 :F D = 0 AND L = 1 ANDP=.30R 
D € } 6 THEN 5350 

5343 X = 

S3é4 PRINT 

SS45 VTAB 22 

5347 INPUT "MARGE A GAUCHE EN COLONN 
E :",C 

6013 IF X = O THEN 6019 


6014 COEFF = COEFF + 128 

6015 FOR ! = 1 TO 24 

6016 PRINT TAB( C) 

6017 POKE 1529, 255 

6018 VTAB ! 

6019 POKE 1913, COEFF 

6020 PRINT 0$ 

6021 IF X = 0 THEN 6027 

6022 PRINT CHRS (27): CHRS (85): CH 
R$ (8) 

POKE 1529, 0 

PRINT ZERO$ 

6025 NEXT ! 

6026 PRINT CHRS (27): CHRS (50) 

6027 X = 0:D= 0 


6023 
6024 


Félicitations pour la qualité de votre 
publication. 


Alain Meizoz - 18 rue de la Poterie - 
1202 Genève - Suisse 





Le programme HELLO de Tran Van 
(Pom's 6 et 7) détruit.la page 3, 
comme je l'avais expliqué dans le 
courrier des lecteurs du Pom's 7. La 


modification que je vous propose ci- 
dessous n'empêche pas la destruc- 
tion de la page 3, mais elle la recons- 
truit après que le programme ait été 
chargé. Les lignes du programme 
n'étant pas numérotées, j'explique 
comme je peux. 


Dans le Pom's 6, page 33, 4ème 
ligne en haut et à gauche, remplacer 
le JSR CLEANUP par JSR RES- 
TORE. À la fin du programme, ajou- 
ter : 


RESTORE JSR 
PHP 
LDX 
LDA 
STA 
DEX 
BPL 
LDA 
STA 
EOR 
STA 
LDA 
STA 
PLP 
RTS 


CLEANUF 


#Ss2F 
S9ES1,X 
S03D0,X 


LOOP 


LOOP 
$9E5S3 
S03F3 


$S03F4 
S9ES2 
S03F2 


Note : aucune des caractéristiques du 
programme n'est modifiée; en parti- 
culier, il tient toujours en 6 secteurs. 
Ce n'est cependant plus OFCE qu'il 
faut placer en AF.BO pour sauver par 
BSAVE, mais 0D20. 


Pour ceux qui n'ont pas le Big Mac 
ou ne veulent pas réassembler, voici 
le patch correspondant à la modifica- 
tion : 


OC21 : 20 FE 0€ 

CFE : 20 7B 9B 08 A2 2F BD 51 
%Æ 9D DO 03 CA 10 F7 AD 
53 9E 8D F3 03 43 AS 8D 
F4 03 AD 52 9€ 8D F2 C3 
28 60 


André Babeanu - 1 rue de la Libéra- 
tion - 78350 Jouy en Josas 





Au sujet de mon extension du moni- 
teur (Pom's 8), ma curiosité a été pi- 
quée au vif par votre remarque page 
41 concernant le décalage du buffer 
clavier. La solution est simple au ni- 
veau de l’assembleur, mais au niveau 
objet … Néanmoins, la voici par rap- 
port au code source publié : 


AR PORTER NRRRRRERENENE 
72 


1. Supprimer la ligne 160 (MONZ4 
LDX #1) et placer l'étiquette 
MONZ4 devant la ligne 161 (JSR 
NXTCHAR +3). 


2. Insérer les deux lignes PLA puis 
TAX entre les lignes 158 et 159. 


3. Insérer les deux lignes TXA puis 
PHA entre les lignes 148 et 149. 


4. Insérer LDX $#00 entre les lignes 
137 et 138. 


Thierry Le Tallec - 69 rue Sauveur 
Tobelem - 13007 Marseille 





J'ai développé un programme réali- 
sant le traitement complet des réga- 
tes de voilier ou de planche à voile. 
Ceux qui désirent se renseigner en 
vue de l'acquisition du programme 
peuvent me contacter. 


Jacques Roullier - 3 rue des Pins - 
66140 Canet Plage 


J'aimerais contacter les abonnés ha- 
bitant ma région Aix les Bains - Sa- 
voie; je m'occupe d'un club de 
micro-informatique. 


Thierry Jan Sperry - Cidex 50 le 
Montcel - 73100 Aix les Bains 


Je recherche un club regroupant les 
possesseurs d'Apple /// intéressés par 
les applications professionnelles. En 
existe-t-il un ? Le cas échéant, les 
personnes intéressées peuvent me 
contacter en vue de la création d’un 
tel club. 


Claude Riou - Le Saint André - 48 
avenue de Lattre de Tassigny - 
83000 Toulon 


Je cherche des personnes ou des so- 


ciétés capables de relier des Apple Il 
à des ordinateurs CII-HB (61DPS et 
DPS4). 


F. Chastagner - 29 route de Gorges - 
44190 Clisson 
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Club Orion 


Travaillant depuis juillet 83 en étroite 
collaboration avec le DataClub de 
Dinant (B), le club Orion continue 
ses activités. Il dispose à ce jour 
d'une programmathèque de plus de 
200 programmes sur disquette : as- 
tronomie, graphisme, jeux, radio 
amateurs, mathématiques, utilitaires, 
traitement de texte et de fichiers, … 
Ces programmes sont destinés à être 
échangés avec les amateurs où qu'ils 
se trouvent. 


Une station radio-amateur, ONSUP 
(André Tarte) est à présent ouverte. 


Carte EPROM/RAM/Timer/Port Parallèle 


Un de nos plus fidèles lecteurs et auteurs, Thierry Le Tallec, vient de mettre au point une carte périphérique pour 
Apple II. Cette carte, qui fonctionne indifféremment dans n'importe quel slot, comprend : 256 octets de mémoire 
RAM, 4 supports 24 broches acceptant des mémoires vives 2K ou des mémoires mortes, EPROM 4K (moniteur 
étendu, un programme de copie), interruptions NMI, VIA 6522. 
D’aspect extérieur très soigné, cette carte n’a rien à envier aux cartes distribuées par les grands” fabriquants. 

Nous avons aussi eu l’occasion de tester une ROM de Thierry Le Tallec pour la création de caractères minuscules sur 
l'Apple II, qui fonctionne parfaitement bien. 


Pour tous renseignements, contacter Thierry Le Tallec - 69, rue Sauveur Tobelem - 13007 Marseille. 


Des échanges avec le Canada ont 
déjà eu lieu via les O.C. Enfin, le 
club est en mesure de réaliser lui- 
même les copies de programmes 
pour ses correspondants. 


Contacter Thierry Lombry - Club 
Orion - Tienne aux Pierres 94 - B- 
5150 Wepion - Belgique. 


Club Ma Pomme 


Réunion le 21 septembre : stockage 
de masse pour Apple Il et III : les dis- 


ques durs, les cartouches, les sauve- 
gardes, les techniques d’avenir. Réu- 
nion à 19 heures au 110, avenue du 
Général Leclerc, 75014 Paris. 


Ma Pomme - 6, rue Jaunière, 75016 
Paris. 


Informatique - Architecture 


Journées d'informations pour les ar- 


chitectes : 28 octobre, 25 novembre 
et 16 décembre. Adresse : 110, ave- 
nue du Général Leclerc, 75014 
Paris. 





Alexandre Duback 


Recueil No 1 de Pom'’s, Editions 
AA Editions du PSI - 200 pages, 
1 : 


Après tout, il faut peut-être aussi par- 
ler du recueil des quatre premiers 
numéros de Pom'’s. Ce livre, au for- 
mat de la revue, reprend la quasi-to- 
talité des articles des 4 premiers nu- 
méros de Pom's Le sommaire 
thématique publié dans le numéro 8 
de la revue vous donnera une idée 
précise de ce que vous pourrez y 
trouver. 


Les trois disquettes d’accompagne- 
ment coûtent 150 FF et peuvent être 
acquises séparément. Elles repren- 
nent, selon la bonne habitude de 
votre revue préférée, tous les pro- 
grammes publiés dans le recueil, 
agrémentés d'explications complé- 
mentaires et, à l’occasion, d’exem- 
ples d'application. 


Comme nous ne pouvons régulière- 
ment republier les mêmes informa- 
tions, nous conseillons vivement aux 
nouveaux possesseurs d'Apple de ne 
pas perdre le bénéfice de la lecture 
du Recueil. Au moins 90% de ce qui 
y est écrit reste d'actualité. 


Guide de l’Apple, de Benoît de 
Merly, Edimicro, 68 FF par tome. 
Trois tomes sont prévus: L'Apple 
Standard, Les Extensions et Les 
Appplications. 
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Bibliographie 


À ce jour, je n’ai reçu que les deux 
premiers tomes et limiterai donc mon 
analyse à ceux-ci. Ces deux livres 
possèdent une présentation agréable. 
Contrairement à ce que disent cer- 
tains revendeurs, ces ouvrages ne 
s'adressent pas aux débutants. Ce 
sont des ouvrages de référence, avec 
en supplément quelques exemples 
de programmes. 


Le tome I (168 pages) couvre à peu 
près les mêmes sujets que ‘Clefs 
pour l'Apple Il” analysé dans le nu- 
méro 8 de Pom'’s. Sur ce plan, le 
tome I est moins exhaustif, et il y est 
plus difficile de retrouver une infor- 
mation donnée. En compensation, il 
a l'avantage de traiter de l'Apple //e, 
ce que ne fait pas l'ouvrage de Ni- 
cole Bréaud-Pouliquen, que je pré- 
fère cependant à celui de B. de 
Merly. 


Le tome Il (200 pages), Les Exten- 
sions, est en fait un manuel du DOS 
3.3 pour ses 72 premières pages, du 
Pascal UCSD pour 63 pages et de la 
softcard Z80 pour 48 pages. Les 13 
dernières pages parlent de cartes 
d'extension. 


En conclusion, je trouve ces ouvra- 
ges bien faits, mais un peu à cheval 
entre l'objectif livre de référence” et 
l'objectif pédagogique. Ce sont des 
ouvrages à bien feuilleter avant de 


décider s'ils correspondent efféctive- 
ment à ce que l’on cherche. 


Assembly Lines : Apple II, manuel 
de programmation du 6502, de Ro- 
bert Wagner, aux IS Editions - 237 
pages, 120 FF. 


Il s’agit là de la traduction en français 
du célèbre ouvrage de Robert Wa- 
gner publié par Softalk. La présenta- 
tion aurait été plus agréable si les 
textes avaient été sortis sur une im- 
primante à marguerite au lieu d’une 
Epson FX80 (ainsi, les accents cir- 
conflexes et trémas sont ajoutés à la 
main, quand ils ne sont pas pure- 
ment et simplement oubliés ..). 
L'impression de bricolage augmente 
quand je constate, sur mon exem- 
plaire, que les 4 pages d'introduction 
ont été assemblées entre la page 4 et 
la page 5 ! On trouve sans difficulté 
des phrases telles que : ”Les chiffres 
sont 100 bien sur.” (sic) parvenant à 
cumuler en peu de mots du mauvais 
français, de la mauvaise ponctuation 
et du mauvais orthographe. 


Sur le fond, il suffit de rappeler que 
l'ouvrage de Wagner est considéré 
comme une référence aux Etats-Unis. 
Assembly Lines est un excellent ou- 
vrage pour lequel je regrette que 
l'éditeur ne se soit pas offert les ser- 
vices d’un meilleur traducteur et n'ait 
pas investi assez pour parvenir à une 
présentation plus agréable. 











Bon de commande 
à retourner sous pli affranchi 
aux Editions MEV 

49, rue Lamartine 

78000 Versailles 


| Total | 
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de la couleur 


dans votre vie 
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Ci-joint mon règlement 


RSS 











mm D — 
pos 


° la disquette HAIFA Source | ] au prix de 55 F la disquette (cf. Pom’s n° 5) 
e le logiciel H-BASIC C] au prix de 150 F (cf. Pom’s n° 8) 


© recueil n° 1 de Pom's (n° 1 à 4) 
[] avec ses 3 disquettes au prix de 270 F 
[] sans disquette au prix de 120 F 
[] les 3 disquettes seules au prix de 150 F 






pos 


Ü6 07 






Je désire recevoir : 








e les numéros de la revue Pom’s [ ]4 []5 
au prix de 35 F le numéro 


n18 


e le numéro 9 de Pom’s au prix de 40 F 


e les disquettes d'accompagnement des numéros 


C1 C12 (13 GI. OS: (ES: «EI7 
au prix de 55 F par disquette 








Je désire m’abonner pour 4 numéros à partir du n° 


[] sans disquette au prix de 135 F 
[] avec disquettes au prix de 325 F 





TOTAL : 
Envoyez ce bon de commande et votre règlement à : 


Éditions ME - 49, rue Lamartine - 78000 Versailles 


Nom 





Adresse 





Ces tarifs comprennent l’envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 





Pour envoi par avion : nous consulter 
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JCR, DES MICRO-ORDINATEURS 
PROFESSIONNEL ET GRAND PUBLIC. 





APPLE IT E 


Entièrement compatible avec l'Apple II 
il possède un clavier étendu Azerty/ 
Qwerty et une mémoire de 64K oct. 
d'origine. 

Déjà de nombreux logiciels et exten- 
sions disponibles sur ce nouvel ordi- 
nateur. 


APPLE III 


L'outil professionnel 
128 RE 


-rllence. 
sque 


incc® ‘eux 
intertè. UVEAU on 
possibK. N EL à 4. 
Profilé. Ë on 
antirefle* arty. 





A4 


URAN IG K rnrnss manne 890 F 
U-TIM carte horloge........ 1090F 
U-TERM carte 80 col........ 1490F 
U-780 carte CP/M ......... 1150F 
CP/M pour U-Z80.......... 750F 
Microbuffer EPSON 16 K....2450F 


Microbuffer ext. 64 K....... 3 300F 
Clavier numérique ......... 
Carte chat Mauve ......... 
Carte EVE pour Apple I E 2 900 F 
Carte80 col. TEXTAILE ... 990F 
Carte 80 col. +64K A IE 2300F 


Poignées de contrôle. ...... 185F 
TOYEUCR. seu suis 380 F 
Carte Superterm 80 col. ....2590F 
Ventilateur Super Fan ...... 850F 
Carte mémoire 64 K........ 2590F 
Carte mémoire 128 K ...... 3950F 
Produits consommables : 

Disq. SF/DD 3M les 10 ..... 210F 
Disq. DD/DD 3M les 10..... 452F 
K 7 vierges les 10.......... 70F 
Papier listing 80 col. ....... 290F 
Papier listing 132 col. ...... 350 F 


— Catalogue gratuit sur demande — 


58, rue Notre-Dame-de-Lorette 59, 


75009 PARIS 


Tél. : (1) 282.19.80 - Télex : 290350 F 


VICTOR CASIO 


VISICORP 


Une série de logiciels d'aide à la déci- 
sion : Visicalc - Visiplot - Visidex - Visi- 


file. 
10N 
FRoMOT 

ORIC 1 

Un ordinateur pour tous de 16 à 48K 
oct. RA 

16 couleurs en graphisme haute résolu- 
tion. 


Synthétiseur de son et interface paral- 
lèle incorporés d'origine. 


et cordon Peritel. 


48 K + manuel français 9 080 £ 





Crédit 4-36 mois — Leasing 36-48 mois — détaxe à l'exportation. 


rue du Docteur Escat 313, rue Garibaldi 

13006 MARSEILLE 69006 LYON 
Tél. : (91) 37.62.33 Tél. : (7) 861.16.39 
SINCLAIR SIRIUS ESPON 





